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Foreword 


Like COMPUTERS other books devoted to the Atari home 
computer, COMPUTERS Third Book of Atari is packed with articles 
on programming techniques, ready-to-run software, computer 
utilities, and reference information—all designed to make your 
Atari computer even more useful than before. 

Whether you are a beginner or an advanced programmer, you 
will find numerous articles of interest, ready to type into your 
computer, games and applications designed to help you get more 
from your investment, and helpful hints and utilities to help you 
better understand your Atari. 

If you already have COMPUTE !'s First and Second Books of 
Atari, you know just how valuable they are—how often you open 
the books to look up the information you need to meet your own 
programming challenges. However, if this is your first 
COMPUTE! book, you're in for some pleasant surprises. 




1 

Programming 

Hints 




H 

1 

1 

1 

1 


1 

1 

1 

n 




1 

Expo nents 

Matt Giwer 


The exponential operator, a, can be made accurate and useful. Here's how. 

The exponential operator, a, performs a very standard mathemat¬ 
ical function, although if you are not familiar with mathematics 
you may not be aware of its potential. Also, there is another byte¬ 
saving use that I will save for the end. 

The key to making full use of A is to realize that in mathemat¬ 
ical notation the square root of four is the same as four to the one- 
half power. In BASIC you can write either SQR(4) or 4 a(1/2). So 
what good is that? Well, you might want to do a cube root, which 
would be 8a (1/3). Get the idea? Not believing that this works, you 
might have tried it by now and have noticed that the machine 
insists that 4 a( 1/2) is not 2 but rather 1.998... something. It seems 
strange to accept a wrong answer from a very slow function. 

Tb correct for this inaccuracy, we simply write the instruction 
INT (4 A (l/2) + 0.01), and this will return the number 2. In return 
for this inaccuracy we get the ability to calculate very unusual 
powers and roots. The above could have been written 4 a 0.5 and 
the same answer returned. We could just as easily have written 
4 A 0.4321 or 2 A 2.223 and have gotten an answer correct enough for 
many calculations. Also, those complex problems such as two to 
the five-thirds power 2 a( 5/3) can be calculated with ease. So not 
only can we do the more common cube roots by using a (1/3), but 
we can now also do an entire range of mathematical functions. 

It is not only faster but more accurate to write 2*2 rather than 
2 A 2. If we are not doing mathematics, how do we make use of 
this? How about instead of writing a byte-consuming timing loop 
for a beep, we simply write A = 1 a1? If the beep should last longer, 
then there is always A = 1 a1 a1 a1 aIaI, etc. It takes quite a while 
before this simple statement equals the number of bytes 
consumed by a timing loop. Thus the major drawback to more 
frequent use of a can be turned to our advantage. 
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Reading the 
Keyb oard Codes 

Orson Scott Card 


By reading the Atari keyboard directly, you can get almost any key to 
perform like a function key—without changing any of the regular uses of 
the keyboard. 

Whenever you press a key on your Atari keyboard, a number is 
stored at location 53769 in memory and, in most cases, in a 
shadow register at location 764. That number is the keyboard code 
for the key, or combination of keys, you pressed. 

Unfortunately, that number has no relation at all either to 
ATASCII character code or to the Atari's internal character code. 

So most programmers ignore the keyboard code (KEYCODE) and 
let the operating system translate the keyboard code into ATASCII 
form. 

You can use the KEYCODE, however, to get some interesting 
results: 

Speed. Picking up the keyboard code at 53769 or 764 can save 
you time, especially when you're working in machine language. 
For one thing, you completely short-circuit the "debounce" 
routine that makes the computer wait for a while before repeating 
a key that is being held down continuously. If the key is down, it's 
down, and you can read the value at once. That can be a disad¬ 
vantage if you have a touch-typing program, but it can be a great 
help if you want instant repetition of a key. 

Customization. You can set up your computer, with soft¬ 
ware, to read the keys any way you like. This article, for instance, 
includes a program to make your computer read the keyboard 
according to the Dvorak pattern instead of the standard Qwerty 
layout. Also, you can set up your own system for shift-locking the 
keyboard. You don't have to follow the standard computer system 
of locking and unlocking only the alphabetic characters when you 
press SHIFT-CAPS/LOWR, CONTROL-CAPS/LOWR, or CAPS/ 
LOWR alone. You can make the entire keyboard lock and unlock, 
or have the nonalphabetic characters lock independently of the 
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alphabetic characters, by pressing SHIFT-ESCAPE or CONTROL- 
ESCAPE, for instance. 

Range. Perhaps the most exciting advantage of working with 
the keyboard code is the great range of values it offers you. Every 
key on the keyboard except SHIFT, CONTROL, BREAK, START, 
SELECT, OPTION, and RESET produces its own unique 
KEYCODE number. Holding down SHIFT while depressing 
another key produces that same number plus 64. Holding down 
CONTROL produces that number plus 128. And, except for 11 
keys (16 for XL users), holding down both SHIFT and CONTROL 
produces that number plus 192. 

This means almost every key has four possible values—even 
RETURN and ESC and SPACE, which the computer usually treats 
the same regardless of whether SHIFT or CONTROL is pressed. 
There are 52 keys on old Ataris and 57 keys on XL models that put 
numbers in location 53769. That gives you 197 unique signals 
from your keyboard (212 if you use an XL model). 

Yet there are only 128 valid ATASCII codes (values 128-255 
are merely inverse characters). You are left with 68 (or 84) possible 
key combinations that ATASCII doesn't need to use. If you were 
creating a word-processing program, you could print every single 
character, including graphics characters, and still have 68 
commands left over—without ever reaching for the console keys. 

The Three Atari Character Codes 

The Atari Operating System (OS) uses three different codes for 
character values: ATASCII, Internal Code (ICODE), and Keyboard 
Code (KEYCODE). Each has a specific use, and most of the time, 
the OS handles all the conversions from one to another so quickly 
that you don't even notice it's going on. 

In order to use KEYCODEs effectively, you need to have a 
clear idea of the differences among the three codes and their rela¬ 
tionship to each other. So let's review the function of each of the 
character codes. 

ATASCII. This is the code used by BASIC. All the alphanu¬ 
meric characters (letters and numbers) and symbols follow the 
standard ASCII code recognized by most computers. The rest of 
the ATASCII codes are used for graphics characters. For instance, 
in ATASCII, the letter A has the value 65. 

The following commands and functions use the ATASCII 
number: 
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CHR$(ATASCII) 

□PEN #1,4,0,"K:GET #1,ATASCII 
ATASCII=PEEK(763) 

AT ASC11=ASC("A") 

GRAPHICS 1:COLOR ATASCII:PLOT I,I 

(Special ATASCII code conversions are used in GRAPHICS 1 and 
2, but for values 32-95, the regular ATASCII values will PLOT in 
Color 1—color register 0.) 

Internal code. This is the code used by the operating system 
to put characters on the screen. The ICODE (internal code) 
number represents the character's position within the ROM char¬ 
acter set. Tlie first character in the ROM character set is the blank 
(space) character. It has the ICODE number 0. The character A is 
in position 33 in the character set, so its ICODE number is 33. 

The ICODE number is used twice. First, when you type or 
PRINT a character on the screen, the OS converts the ATASCII 
value into the ICODE value and stores the ICODE value in screen 
memory. Second, the ANTIC chip, which scans screen memory 
60 times a second, reads the ICODE value stored there and uses it 
to count a certain number of steps into the ROM character set. 
Since it takes eight bytes to contain each character pattern in the 
ROM set, ANTIC counts 8*ICODE bytes into the character set to 
find the beginning of the pattern. 

So when you type the letter A, the OS stores the number 33 
in screen memory. ANTIC finds that 33 and multiplies it by 8, 
which results in the number 264. ANTIC then goes to the char¬ 
acter set and counts in until it finds byte 264. This is the first byte 
of the pattern for the character A. ANTIC uses that byte, along 
with the next seven bytes, to tell the TV screen what to display. 

You will use ICODE values for the same purpose the OS uses 
them—to POKE characters directly into screen memory and to 
find a character's pattern within the character set. 

Keyboard code. This is the number generated by the circuits 
in your keyboard when you press a key (see Table 1). The combi¬ 
nation of open and closed circuits from the keyboard causes a 
KEYCODE (keyboard code) number to be stored in location 
53769. This number is then read by the OS and stored at 764, 
where it is picked up and converted into an ATASCII value which 
is stored in location 763. 

The keyboard code is never used anywhere else, but there are 
still several things you can do with it. By POKEing character 
codes into location 764, you can fool the OS into thinking that a 
particular key has been pressed. Then, when your program GETs 
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Table 1. Keyboard Codes 


Unshifted Keyboard Values 

ESC 1234567890<> DEL 
28 31 30 26 24 29 27 51 53 48 50 54 55 52 

TAB QWERTYUI OP - = RETURN 

44 47 46 42 40 45 43 11 13 8 10 14 15 12 

ASDFGHJ KL; + * CAPS/LOWR 

63 62 58 56 61 57 1 5 0 2 6 7 60 

Z X C V B N M , / Atari logo 

23 22 18 16 21 35 37 32 34 38 39 

SPACE BAR FI F2 F3 F4 HELP 

33 3 4 19 20 17 

Keyboard Values with SHIFT* 

ESC 1 2 3 4 5 6 7 8 9 0 < > DEL 

92 95 94 90 88 93 91 115 117 112 114 118 119 116 

TAB QWERTYUI OP - = RETURN 

108 111 110 106 104 109 107 75 77 72 74 78 79 76 

ASDFGHJ KL; + * CAPS/LOWR 

127 126 122 120 125 121 65 69 64 66 70 71 124 

Z X C V B N M , / Atari logo 

87 86 82 80 85 99 101 96 98 102 103 

SPACE BAR FI F2 F3 F4 HELP 

97 67 68 83 84 81 

Keyboard Values with CONTROL* 

ESC 1234567890 < > DEL 

156 159 158 154 152 157 155 179 181 176 178 182 183 180 

TAB QWERTYUI OP - = RETURN 

172 175 174 170 168 173 171 139 141 136 138 142 143 140 

ASDFGHJ KL; + * CAPS/LOWR 

191 190 186 184 189 185 129 133 128 130 134 135 188 

Z X C V B N M , / Atari logo 

151 150 146 144 149 163 165 160 162 166 167 

SPACE BAR FI F2 F3 F4 HELP 

161 131 132 147 148 145 

Keyboard Values with SHIFT and CONTROL 

ESC 1234567890< > DEL 

220 223 222 218 216 221 219 243 245 240 242 246 247 244 

TABQWERTYUI OP - = RETURN 

236 239 238 234 232 237 235 203 205 200 202 206 207 204 

ASDFGHJ KL; + * CAPS/LOWR 

255 254 250 248 253 249 252 

Z X C V B N M , / Atari logo 

227 229 224 226 230 231 

SPACE BAR FI F2 F3 F4 HELP 

225 


‘Eleven keys cannot be read with SHIFT and CONTROL pressed: J, K, L,+ 
V, and B (and FI, F2, F3, F4, and HELP on XL models). 


■,‘,Z,X,C, 
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the latest key pressed or executes an INPUT statement, it will 
think the key you specified was pressed. 

You can also change the way the computer thinks the keys 
are laid out. For instance, you might want to try the Dvorak 
keyboard. The Qwerty keyboard (the one your computer comes 
with) was deliberately designed to be inconvenient and slow. Back 
when mechanical typewriters were first used, quick typists kept 
jamming the keys. So the Qwerty keyboard puts the most 
commonly used letters off the home keys or on the left side, where 
most typists will have a harder time getting to them. Computer¬ 
ized keyboards are faster now, and the Dvorak keyboard is 
designed to take advantage of that. The most commonly used 
characters are on the home keys. And you can learn the Dvorak 
system by making your Atari read the keyboard in the Dvorak 
pattern, just by reconfiguring the relationship between 
KEYCODE and ATASCII. 

You can also use the keyboard codes to get input from the 
keyboard directly, bypassing the OS's formulas for conversion. 
That's the use we'll pursue in the rest of this article. 

Exceptions to the Rules 

SHIFT-lock. It is important to remember that the number 
stored at 53769 and shadowed at 764 is the value of the key combi¬ 
nation actually pressed. It is not affected at all by whether the 
keyboard is SHIFT-locked or CONTROL-locked. 

When the Atari powers up, the keyboard is locked into the 
alphabetic shift mode—when you press any letter key, with or 
without pressing SHIFT at the same time, the shifted value 
appears on the screen. But as far as locations 53769 and 764 are 
concerned, if you don't press SHIFT, the unshifted value is all it 
gets. 

The way the operating system handles SHIFT-lock and 
CONTROL-lock is simple—you can imitate this in your own 
programs. When the CAPS/LOWR key is pressed, the operating 
system changes the SHIFT-lock flag at location 702. If the CAPS/ 
LOWR key is pressed by itself, 0 is stored at 702; if SHIFT and 
CAPS/LOWR are pressed together, 64 is stored there; and if 
CONTROL and CAPS/LOWR are pressed together, 128 is stored 
there. From then on, if the key pressed calls for an alphabetic 
(letter, rather than number or symbol) character, the operating 
system checks location 702 and adds the number stored there to 
the offset into the Key Definition Table. Programs 1 and 2 both 
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perform a customized version of this function, by-passing the 
operating system entirely. 

XL models. XL models (Atari 600XL, 800XL, 1200XL, 1400XL, 
and 1450XL) allow you to lay out your own Keycode Definitions 
Table (essentially what the programs in this article do with the 
array AC (n)), and inform the operating system by POKEing the 
address of the table, low byte first, into locations 121 and 122 ($79 
and $7A). The table is set up exactly like the ATASCII array—you 
could use the DATA statements, converting them from ICODE to 
ATASCII order, to set up the table for the XL redefinition. 

The XL models also allow you to redefine the F n and SHIFT- 
Fn keys separately, without redefining the entire keyboard, by 
setting up an eight-byte table and POKEing its address, low byte 
first, into locations 96 and 97 ($60 and $61). 

However, this system of keyboard redefinition still leaves you 
with the OS's system of interpretation, which ignores all SHIFT- 
CONTROL and all CONTROL-nwmber key combinations. To really 
take advantage of the power of the keyboard code, you need to set 
up your own interpretation system as well. 

Missing SHIFT-CONTROL combinations. Eleven keys—16 
on XL models—return no value to location 57369 if both SHIFT 
and CONTROL are pressed at the same time: J, K, L,;, +, *, Z, X, 
C, V, and B on all Ataris, and FI, F2, F3, F4, and HELP on XL 
models. It is as if those key combinations did not exist. 

Interrupts. Most of the time, whatever number is stored in 
location 53769 is also stored at 764. There are exceptions when the 
key combination is acted on during an interrupt. The CONTROL- 
1 combination, for instance, is read during an interrupt and can't 
be read from 764—but the value still occurs at location 53769 and 
can be read there. On XL models, CONTROL-F1, CONTROL-F2, 
CONTROL-F4, and HELP SHIFT-HELP and CONTROL-HELP 
also generate codes that are not transferred from 53769 to 764. 

What difference does this make? If you want to be able to 
read that code in spite of the interrupt, you can—by reading 53679 
instead of 764. The interrupt will still take place, but your program 
will also "know" that the key combination was pressed. Or if you 
want your program to ignore keys used by the interrupts, read the 
values at 764 instead of 53769. 

Here is a short program that reads the hardware register and 
POKEs the raw KEYCODE number into screen memory. First, 
you will see that the KEYCODE number has no relation to the 
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ICODE number that normally is POKEd into screen memory. 

Second, since the PRINT command isn't being used, the 
CONTROL-1 key has no effect at all—and its KEYCODE number 
is POKEd into screen memory, where it appears as an inverse 
question mark. If you have an XL model, you will see that 
pressing CONTROL-F4 still toggles between the standard and 
international character sets—but it also causes an inverse 4 to 
appear on the screen. 

10 POKE PEEK(B8)+256#PEEK<89>+N,PEEK<53769) 

20 N=N+1—960*(N>95B):SOTO 10 

Built-in delay. There is a slight but measurable time lag 
between the keypress causing a number to be stored at 53769, 
and the echo getting stored in 764. Here is a very short 
example program that will show you these codes: 

10 PRINT PEEK(764);" PEEK(53769) 

20 FOR 1=0 TO 40:NEXT I: GOTO 10 

This program PRINTs the value at 764 on the left and the value at 
53769 on the right. If you RUN this program and then type very 
quickly, you will sometimes see a number appear on the right that 
has not yet appeared on the left—you have caught the OS 
between receiving the KEYCODE at 53769 and echoing it at 764. If 
your program needs speed (particularly if it is a machine language 
routine), you'll definitely want to read the keyboard code at 53769. 

ATASCII-ICODE Conversions 

Actually, since ATASCII and ICODE have a regular relationship, 
conversions back and forth are quite simple. Subroutine 1 
converts the ATASCII number AC(N) to ICODE and assigns the 
value to IC(N): 

Subroutine 1. ATASCII to ICODE 

800 VERS=0:IF AC>127 THEN VERS=1:AC=AC-128 
810 IF AC<32 THEN IC=AC+64+128*VERS: RETURN 
820 IF AC<96 THEN IC=AC-32+128*VERS: RETURN 
830 IC=AC+12S*IV:RETURN 

When you jump to this subroutine, the variable AC must contain 
the ATASCII value of the character you want converted to ICODE. 
When you return from the subroutine, the variable IC will contain 
the ICODE value. You can POKE it to screen memory: POKE 
PEEK (88) + 256*PEEK(89) + OFFSET,IC. 

Subroutine 2 converts from ICODE to ATASCII: 
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Subroutine 2. ICODE to ATASCII 

200 IV=0:IF 10127 THEN IV=1: IC=IC-128 
210 IF IC<64 THEN AC=IC+32+12B*IV:RETURN 
220 IF IC<96 THEN AC=IC-64+128*IV:RETURN 
230 AC=IC+128*IV:RETURN 

When you GOSUB to this routine, the variable IC contains the 
ICODE value of the character you want converted. When you 
return from the subroutine, the variable AC will contain the value 
that, when PRINTed, will cause the character to be displayed. 

In both subroutines, the variable IV is used to keep track of 
whether the character was inverse or not. Note that you cannot 
change the order of these lines. If 220 is executed before 210, or 
120 before 110, the results will be wrong. 

The Keyboard Code Array 

Since KEYCODE doesn't have a systematic relationship with the 
other codes, a simple program wouldn't convert to and from 
KEYCODE. A much better solution is to set up a table of ATASCII 
or ICODE values in KEYCODE order, and then use the 
KEYCODE number as a pointer into the table to find the right 
ATASCII or ICODE value. In BASIC, the simplest way of doing 
this is to use the KEYCODE number as the subscript in an array 
containing either ICODE or ATASCII values. (For a complete 
listing of keyboard codes and their relationship to internal code 
and ATASCII, see Appendix A, "A Complete Guide to the Atari 
Character Set.") 

During your program's setup phase, you need to DIMension 
one or both of these arrays: 

DIM ICC255),AC <255) 

The elements of this array will be assigned either ATASCII or 
ICODE values, arranged in KEYCODE order. For instance, 
KEYCODE 0 is produced by pressing 1 (lowercase L). Therefore, 
the value of C(0) will be 108. 

Once the array has been set up, the keyboard can be read 
almost instantly. For instance, to PRINT the last key pressed, 
regardless of what it was or how long ago it was pressed, this 
statement would do: 

PRINT AC(PEEK (764)) 

We'll go into much more detail about effective use of the keyboard 
codes later on. 
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Assigning values. The way you assign values to this array 
depends on how you want to use the keyboard data. 

KEYCODE 94 is produced by pressing SHIFT-2 (the quota¬ 
tion mark). If the array has been set up in ATASCII order, the 
value of C(94) will be 34. This is the method you will use if you 
want to PRINT CHR$ (C(KEYCODE)) or create strings. 

If the array has been set up in ICODE order, the value of 
C(94) will be 2. This is the method you will use if you want to 
POKE keyboard input directly into screen memory, to create 
displays without using PRINT or strings. 

The KEYCODE DATA Statements 

Program 1 is the heart of this system. It consists of DATA state¬ 
ments that contain ICODE values in KEYCODE order. 

Extra key combinations. Zero is used for every KEYCODE 
value that has not been assigned an ATASCII or ICODE value. 
There are many zeros in the DATA statements, even though only 
the space bar should produce a blank, because there are many 
KEYCODE values that have no corresponding ICODE or 
ATASCII values. For instance, SHIFT-RETURN has no special 
ICODE or ATASCII value. If you wanted SHIFT-RETURN to have 
the same value as RETURN, you would assign it the same value 
as RETURN. 

Inverse ATASCII characters. Some ATASCII values are really 
inverse characters. ATASCII 156-159 (usually produced by 
pressing SHIFT-DELETE, SHIFT-INSERT, CONTROL-TAB, and 
SHIFT-TAB) PRINT as nothing more than the inverse of ATASCII 
28-31. ATASCII 253, 254, and 255 (CONTROL-2, CONTROL- 
DELETE, and CONTROL-INSERT) are inverses of ATASCII 125- 
127 (SHIFT-CLEAR, DELETE, and TAB). ATASCII 155 (RETURN), 
if it could be PRINTed as a character, would be the inverse of 
ATASCII 27(ESC). Since all these characters can be obtained by 
PRINTing an inverse of another key combination, they have been 
left as zeros in the DATA statements. (If you want a keyboard code 
to clear the screen or ring the CONTROL-2 buzzer, that can be 
done independently, as will be shown below.) 

Impossible codes. Many of the zeros in the DATA statements 
are there because certain KEYCODE values cannot exist—no 
combination of keys will result in that particular number. The 
impossible codes on non-XL Ataris are 3, 4, 9,17,19, 20, 25, 36, 

41, 49, and 59—and those numbers plus 64,128, and 192. Since 
the DATA statements are arranged in KEYCODE order, the 
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impossible codes are represented by zeros just to keep the array in 
order. If your computer is an XL model, 3, 4,17,19, and 20 repre¬ 
sent FI, F2, HELL F3, and F4, and can be read in any combination 
except SHIFT-CONTROL. 

Assigning Values to the Array 

Program 1 includes all the DATA statements needed to set up 
arrays AC (n) and IC (n). By removing the word REM in front of the 
subroutine calls, you can create a disk file containing the array, or 
load the data from the disk file into the array. Or you can simply 
add these DATA statements to a program. 

Using the Keyboard Code in a Program 

Once the array is set up, reading the keyboard code is very 
simple. You can use it directly, of course, by putting it in a func¬ 
tion: 

PRINT CHR$(PEEK(53769)) 

However, this does not begin to use the freedom the keyboard 
code gives you. 

Is a key pressed? First, if your keyboard read routine is 
complicated at all, you will want to avoid going through it when 
there is nothing to read. In the main loop of your program, the 
test can be as simple as this: 

ON PEEK (753) 03 GOSUB 500 

Location 753 is set to 3 every time a key is pressed. If a key is not 
pressed, it decrements (decreases in value by 1) every 1/60 second 
until it reaches zero. If a key is pressed and held down, 753 will 
continue to equal 3. So your program will GOSUB to your 
keyboard read routine only when a key is pressed. 

Locking character sets. The CAPS-LOWR key usually affects 
only the alphabetic character keys. To get the % character, you 
have to press SHIFT-5, regardless of whether the alphabetic keys 
are locked in SHIFT or CONTROL mode. The subroutine below, 
however, will automatically lock all the keys in one mode or 
another. 

2500 N=PEEK(53769):S=INT(N/64) :KEY=N-S*64 
2510 IF KEY=60 THEN SHIFT=S*64:RETURN 
2530 IC=IC(KEY+SHIFT):AC=AC(KEY+SHIFT) 

2540 POKE W, IC:W=W+1-960*(W=959> -.RETURN 

Line 2500 sets up three useful variables. N holds whatever value 
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was in 53769. S tells us, in effect, whether SHIFT, CONTROL, or 
both were also pressed. If S = 0, then neither was depressed; if 
S = 1, then SHIFT; if S = 2, then CONTROL; if S = 3, then both. 
KEY tells us which actual key was depressed, regardless of 
whether SHIFT or CONTROL was depressed. 

In line 2510 the program determines whether KEY was the 
CAPS-LOWR key, whose code is 60. If it was, then the variable 
SHIFT is set at 0, 64,128, or 192, depending on whether SHIFT or 
CONTROL was depressed. Since CAPS-LOWR is not a printing 
character, the subroutine returns at this point. 

In line 2530, IC and AC are set at the ICODE and ATASCII 
equivalent, not of KEY, but of KEY + SHIFT. Whatever value 
SHIFT was last given by line 2510 is automatically added to the 
absolute value of whatever key was depressed. Now if the 
program should print AC or POKE IC onto the screen, it would 
give either its shifted, control, or unshifted value, depending on 
the value of SHIFT, regardless of whether SHIFT or CONTROL 
was pressed when the key was entered. 

In line 2540, IC is POKEd into location SC + W, which repre¬ 
sents a position in screen memory. (SC = lowest address of screen 
memory; W = current location above SC.) Then W is incremented 
(increased by 1). If W is at 959, so that incrementing it would take 
us off the bottom of the screen, the program subtracts 960 and 
starts us at the upper left-hand comer again. 

Inverse mode. Right now there's no way to print inverse 
characters. So let's add a line to take care of that. 

2505 IF KEY=39 AND S>0 AND S<3 THEN IV=128*<S=2>: 
RETURN 

We also need to change line 2530: 

2530 IC=IC(KEY+SHIFT+IV):AC=AC(KEY+SHIFT+IV) 

Now when you press the Atari logo key at the same time you 
press CONTROL, the entire keyboard shifts into inverse mode. 
Press SHIFT and the Atari logo key and the keyboard shifts back 
into regular mode. But when you press the Atari logo key by itself 
or with both CONTROL and SHIFT, there is no effect on inverse 
mode at all. 

Multiple meanings. When you press the arrow keys when 
the keyboard is locked into the control mode, you'll notice that the 
arrows appear on the screen, and the cursor does not move. This 
is because the program is POKEing the ICODE values into screen 
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memory. If the program were PRINTing the ATASCII values, the 
cursor would have moved. 

But you can still use the cursor keys, just as you always have, 
along with the SHIFT-CLEAR key, by adding these lines: 

2520 ON S GOTO 2800,2850,2900 

2800 IF N=125 THEN PRINT CHR$(AC(N)> 

2810 RETURN 

2850 H=(KEY=7)—(KEY=8):V=40*((KEY=14)-<KEY=15)): 
W=W+H+V 

2860 IF W<0 THEN W=W+960:RETURN 
2870 IF W>959 THEN W=W-960 
2880 RETURN 

2900 REM This command line is executed if 
SHIFT-CONTROL are pressed 
2910 RETURN 

Notice that in line 2520 the program uses a GOTO instead of a 
GOSUB. This means that the RETURN at the end of each of these 
subroutines will take us back, not to the statement immediately 
following the branch in line 2520, but to the main loop of the 
program. If we did not do this, every command would also result 
in a blank being displayed on the screen. 

More Commands Than You Can Use 

Remember when I said that we would have 68 command charac¬ 
ters? Now you can see that we could just as easily have 140 
command characters. That is because, by using the CAPS-LOWR 
key the way we do, all the printable values of each key can be 
displayed on the screen without pressing SHIFT or CONTROL 
each time. Then if the user does press SHIFT or CONTROL or both 
with a character, we can interpret that separately as a command. 

Naturally, few programs would ever need 140 command 
characters. And a word processing program would do much 
better to interpret keys pressed with SHIFT as characters rather 
than commands—typists would hate having to use CAPS-LOWR 
every time they wanted a capital letter or a shifted symbol. 

But using the keyboard codes, you have the freedom to 
design your own keyboard system, to respond to the exact needs 
of your own program. You could design a word processor that 
used a keyboard layout different from the standard Qwerty, or 
you could simply speed up the key repeat. You could also use a 
section of the keyboard as a game controller with continuous 
commands—as long as a key was held down, it would continue 
to repeat its function. You could read the keyboard as an organ. 
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shifting back and forth between different banks of keys with 
different stops set. 

The Dvorak Keyboard 

One thing you might want to try is the Dvorak keyboard 
(Program 2). In this program, the DATA sets up the arrays so the 
keyboard is interpreted according to the Dvorak keyboard instead 
of the Qwerty keyboard (see Table 2). By using this table with 
your own keyboard reading program, you could train yourself to 
type with the much faster Dvorak keyboard arrangement. 


Table 2. Dvorak Keyboard Codes 

Unshifted Keyboard Values 

ESC 1 2 3 4 5 6 7 8 9 0 <> DEL 

28 31 30 26 24 29 27 51 53 48 50 54 55 52 

TAB/ , PYFGCRL - = RETURN 

44 47 46 42 40 45 43 11 13 8 10 14 15 12 

AOEUI DHTNS + * CAPS/LOWR 

63 62 58 56 61 57 1 5 0 2 6 7 60 

; QJ KXBMWVZ Atari logo 

23 22 18 16 21 35 37 32 34 38 39 

SPACE BAR FI F2 F3 F4 HELP 

33 3 4 19 20 17 

Keyboard Values with SHIFT 

ESC 1 2 3 4 5 6 7 8 9 0 <> DEL 

28 31 30 26 24 29 27 51 53 48 50 54 55 52 

TAB? [ ] PYFGCRL - = RETURN 

44 47 46 42 40 45 43 11 13 8 10 14 15 12 

AOEUI DHTNS + * CAPS/LOWR 

63 62 58 56 61 57 1 5 0 2 6 7 60 

QJ KXBMWVZ Atari logo 

23 22 18 16 21 35 37 32 34 38 39 

SPACE BAR FI F2 F3 F4 HELP 

33 3 4 19 20 17 

Keyboard Values with CONTROL 

See Table 1. 


Keyboard Values with SHIFT and CONTROL 

See Table 1. 

Note: The Dvorak keyboard calls for the single and double quotation marks to be just to 
the right of the L key and the hyphen and underline characters to be just to the right of the 
S key. The preceding table does not show this because those keys are used for arithmetic 
functions on the Atari keyboard, and most users would probably prefer to leave those 
keys as they are. 
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Debounce routine. Line 100 contains a homemade debounce 
routine. When you type, your finger remains on the key for a frac¬ 
tion of a second. If the program reads the keyboard again before 
you lift your finger, the key will repeat—even though you might 
not want it to. The debounce routine checks to see if the value it 
just got from the keyboard is the same as the last one it got. If not, 
a new key has been pressed and the program goes on. But if the 
keys are the same, the counter X is incremented by one. If X is less 
than 4, the key will be ignored; if it is greater than 4, it is assumed 
that the typist meant the key to repeat. 

By changing the 4 to some other number, you can change the 
time lag between holding down a key and getting it to repeat on 
the screen. Or you could write a routine that would cause the 
cursor control keys to repeat without a much shorter debounce 
delay than the other keys. 

Because this routine is written in BASIC, it has another 
problem—it's possible for you to type so quickly that you press 
one key and then go on and press another key before the program 
ever reads the first key's value. You can solve the problem by 
writing in machine language. Or you could write just your 
keyboard reading routine in machine language and run it in an 
interrupt, have that routine store the characters typed into a 
buffer, and let your BASIC program read the keyboard input from 
the buffer at its own speed. Or you could compile your BASIC 
program so it ran faster than people could type. But the more 
commands you have to check for with each letter typed, the 
slower your BASIC program will run, and the more keystrokes 
you'll lose because of slow program execution. 

SHIFTing. This program improves on the way Program 1 
handles the SHIFT key. Instead of simply ignoring the SHIFT and 
CONTROL keys except when CAPS/LOWR is pressed. Program 
2 pays attention to SHIFT. If the keyboard is locked into SHIFT or 
CONTROL, pressing the SHIFT key has no effect. If the keyboard 
is locked into lowercase (that is, if you pressed CAPS/LOWR by 
itself), then pressing the SHIFT key with another key will cause 
that letter, and only that letter, to be shifted—just like the standard 
typewriter keyboard. 

This is handled in line 105, when S is set to equal INT(K/64). 
In effect, this makes S equal 1 if SHIFT is pressed, 2 if CONTROL 
is pressed, 3 if both are pressed, and 0 if neither is pressed. Then, 
in line 120, N is set back to the value of K, the original keystroke 
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combination, if SHIFT was pressed. This by-passes the locked 
value of the variable SHIFT for one keystroke only. 

It would be a simple matter to adapt this program so that if 
the keyboard is locked into SHIFTed condition, pressing the 
SHIFT key and another key would cause the program to display 
the lowercase, unshifted value of that key. Or you could write a 
routine that would allow you to lock and unlock the number keys 
into shifted and unshifted condition separately from the rest of 
the keyboard. 

POKEing to the screen. This program pretends to be a 
typing program, since lines 200 and 205 POKE the letters directly 
into screen memory. Each time a character is POKEd into 
memory, the pointer variable E is incremented by one so that the 
next character will be placed just to the right of the character 
before. 

An alternative would be to replace ICODE screen POKEing 
with ATASCII PRINT statements. Delete lines 200 and 205 and 
replace them with 

200 PRINT CHR$(AC(N))+VERS 

Now the editing functions will work and the screen will scroll 
when you reach the bottom. 

These programs, while not especially useful in themselves, 
should give you a pretty good idea of some of the possibilities that 
are opened up to you if your programs read the keyboard directly. 
Whenever you write a program that relies heavily on keyboard 
input, you should give serious consideration to having your 
program read the keyboard independently—it might allow you to 
add refinements to your program that make it more powerful or 
useful to the user. 


Program 1. Standard Array 

5 DIM IC(255),AC(255):SC=PEEK< 
9):SHIFT=64:VERS=0 
10 60SUB 500: REM 


15 REM 60SUB 600:REM 


20 REM GOSUB 700:REM 
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105 N = K: IF N >63 THEN N = N-64:1F N>63 THEN N = N 
-64: IF N >63 THEN N = N-64 
110 IF' N = 60 THEN SHIFT=4+K-64 
115 IF N=39 THEN VERS=128*<VERS<>128) 

200 PRINT N,CHR*<AC(N+SHIFT)+VERS) 

205 POKE SC + 959, IC (N + SHIFT)+VERS 
210 GOTO 100 

500 RESTORE 1000:FOR 1=0 TO 191:READ N:IC(I) 
= N:NEXT I:FOR 1 = 192 TO 255: IC(I)=0:NEXT I 
510 FOR 1=0 TO 255:N=IC(I) 

520 IF N< 64 THEN ACCI>=N+32 

530 IF N >63 AND N<96 THEN AC(I)=N-64 

540 IF N >95 THEN AC(I)=N 

550 NEXT I 

560 RETURN 

600 OPEN #4,8,0,"D:KEYCODE.DAT" 

605 RESTORE 1000:FOR 1=0 TO 191:READ N:PUT # 
4 , N :NE XT I 

610 FOR 1=192 TO 255:PUT #4,0:NEXT I 

615 CLOSE #4:RETURN 

700 OPEN #4,4,0,"D:KEYCODE.DAT" 

705 FOR 1=0 TO 255:GET #4,N:IC<I)=N 

710 IF N< 64 THEN AC(I)=N + 32 

715 IF N >63 AND N<96 THEN AC(I)=N-64 

720 IF N >95 THEN AC(I)=N 

725 NEXT I:RETURN 

1000 DATA 108,106,27,0.0,107.11,10.111,0,112 
, 117,0, 105, 13,29 

1016 DATA 118,0,99,0.0,98,120,122,20,0,19,22 
,91,21,18,17 

1032 DATA 12,0,14,110,0,109,15,0,114,0,101,1 
21,127,116,119,113 

1048 DATA 25,0,16,23,126,24,28,30,102,104,10 
0,0,0,103,115,97 

1064 DATA 44,42,26,0,0,43,60,62,47,0,48,53,0 
,41,63,124 

1080 DATA 54,0,35,0,0,34,56,58,4,0,3,6,0,5,2 
, 1 

1096 DATA 59,0,61,46,0,45,31,0,50,0,37,57,0, 
52,55,49 

1112 DATA 8,0,9,7,0,32,125,0,38,40,36,0,0,39 
,51,33 

1128 DATA 76,74,123,0,0,75,94,95,79,0,80,85, 
0,73,92,93 

1144 DATA 86,0,67,0,0,66,88,90,0,0,0,0,0,0,0 
, 0 

1160 DATA 64,0,96,78,0,77,0,0,82,0,69,89,0,8 
4,87,81 

1176 DATA 0,0,0,0,0,0,0,0,70,72,68,0,0,71,83 
, 65 
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Program 2. Dvorak Array 

5 DIM IC<255),AC(255):SHIFT=64:VERS=0:SC=PEE 
K(88)+256*PEEK(89):E=0 

10 GOSUB 500: REM H TT T gMg H 1 mEBg jME33 083113£ 

15 rem gosub 600:rem oaansmMBiMan asiaBBaBs 

gEmu E mB 


100 POKE 694 ,0:ON PEEK(753)<>3 GOTO 100:P=PE 
EK(53769):IF P=K THEN X=X+1:IF X<4 THEN 


105 X = 0:K = P:S = I N T (K/64) :N = K-64*S 

110 IF N=60 THEN SHIFT=64*S 

115 IF N=39 THEN VERS=128*<VERS<>128) 

120 N=N+SHIFT:IF S=1 THEN N=K 
200 POKE SC+E,IC(N>+VERS 
205 E=E+1-960*(E>958) 

210 GOTO 100 

500 RESTORE 1000:FOR 1=0 TO 191:READ N:IC(I) 
=N:NEXT I:FOR 1=192 TO 255:IC(I)=0:NEXT 


I 

510 FOR 1=0 TO 255 : N=IC(I) 

520 IF N< 64 THEN AC(I)=N + 32 

530 IF N >63 AND N<96 THEN AC(I)=N-64 

540 IF N >95 THEN AC(I)=N 

550 NEXT I 

560 RETURN 

600 OPEN #4,8,0, "D:KEYCODE.DAT" 

605 RESTORE 1000:FOR 1=0 TO 191:READ N:PUT 
4,N:NEXT I 

610 FOR 1=192 TO 255:PUT #4,0:NEXT I 

615 CLOSE #4:RETURN 

700 OPEN #4,4,0,"D:KEYCODE.DAT" 

705 FOR 1=0 TO 255:GET #4,N:IC(I)=N 

710 IF N< 64 THEN AC(I)=N + 32 

715 IF N >63 AND N<96 THEN AC<I)=N-64 

720 IF N >95 THEN AC<I>=N 

725 NEXT IrRETURN 

1000 DATA 110,104,115,0,0,116,11,10 
1008 DATA 114,0,108,103,0,99,13,29 
1016 DATA 107,0,106,0,0,120,113,27 
1024 DATA 20,0,19,22,91,21,18,17 
1032 DATA 119,0,118,98,0,109,122,0 
1040 DATA 112,0,14,102,127,121,12,15 
1048 DATA 25,0,16,23,126,24,28,30 
1056 DATA 117,100,101,0,0,105,111,97 
1064 DATA 46,40,51,0,0,52,60,62 
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1072 DATA 
1080 DATA 
1088 DATA 
1096 DATA 
1104 DATA 
1112 DATA 
1120 DATA 
1128 DATA 
1136 DATA 
1144 DATA 
1152 DATA 
1160 DATA 
1168 DATA 
1176 DATA 
1184 DATA 


50,0,44,39,0.35,63,124 
43,0,42,0,0,56,49,26 
4,0,3,6,0,5,2,1 
55,0,54,34,0,45,58,0 
48,0,61,38,0,57,59,31 
8,0,9,7,0,32,125,0 
53,36,37,0,0,41,47,33 
76,74,123,0,0,75,94,95 
79,0,80,85,0,73,92,93 
86,0,67,0,0,66,B8,90 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
64,0,96,78,0,77,0,0 
82,0,69,89,0,84,87,81 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
70,72,68,0,0,71,83,65 
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Using the Atari 
Timer 

Stephen Levy 


Because FORJNEXT loops are not accurate timers, the solution is to 
incorporate Atari's internal counters into programs where you want 
something delayed or timed reliably. 

Have you ever written a program and wanted a specific time 
delay? What did you do? Some of us figured a FOR/NEXT loop 
was the answer, so we set to work with our stopwatches until we 
found that the following takes about three seconds to write 
"STOP": 

10 PRINT "BEGIN” 

20 FOR X=1 TO 1000 
30 NEXT X 
40 PRINT "STOP" 

Then we went along and wrote our programs and found that 
our three-second delay had become five, six, or even ten seconds. 
Why? Because the Atari FOR/NEXT loops take longer as you add 
lines of code to the program. 

There is a better way. Yes, machine language routines are 
great for timing on the Atari, especially if you know how to use 
locations 536 to 558 ($218 to $22E). But it can be most discon¬ 
certing if you allow some of those registers to drop to zero 
unchecked. 

Accurate Delays 

BASIC programmers, there is a way. Use memory locations 18,19, 
and 20. 

These timers work like the mileage gauge on a car's speedom¬ 
eter: one counter counts up and then sets the one next to it which, 
in turn, sets the next one. Each counter on the speedometer goes 
up when the one to its right hits ten. In the computer, they count 
up to 255 before going back to zero. 

Register number 20 counts at the rate of 60 numbers per 
second up to number 255, then increments register 19 by one and 
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starts over. When register 19 reaches 255, it increments register 18 
by one. If you POKE zero into all three registers, it will take about 
1092 seconds before a one appears in register 18 (more than 18 
minutes). The table gives some times (it assumes all three regis¬ 
ters began with zero). Notice that it would take more than 77 
hours for memory location 18 to reach 255. 

Well, how does all this help? Let's look at our short program 
again. We can rewrite it this way: 

10 PRINT "BEGIN": POKE 20,0 
20 IF PEEK(20)<180 THEN 20 
30 PRINT "STOP" 

This routine will continue to take three seconds no matter 
how long your program. Well, not exactly; since it is written in 
BASIC, the longer the program, the longer the routine will take. 
But the influence of the program length will usually be negligible. 

Included here are three programs which demonstrate a much 
more functional use of this timer. Type in Program 1, leaving out 
the REM statements. This program tells the user the time interval 
between the pressing of RETURN after typing RUN and the 
pressing of RETURN a second time. Notice that if you press 
another key the computer goes back to line 140. 

This short program demonstrates several useful concepts. 
First, the computer is looking for a particular input, in this case the 
RETURN key (ATASCII155). Second, line 160 PEEKs at registers 
18,19, and 20. Notice we POKEd location 20 last on line 130 and 
PEEKed at it first on line 160. Third, line 170 contains the impor¬ 
tant formula for converting the information in locations 18,19, 
and 20 to seconds. Why 4.267? Because 256 divided by 60 
numbers per second equals 4.267. Fourth, lines 180 to 200 convert 
the total number of seconds to minutes and seconds. 

Program 2 is a bit more useful. It is a timed math quiz in 
which the user is allowed eight and one-half seconds to answer. 
Line 140 is used to check if a key has been pressed. If no key has 
been pressed, then the program goes back to check how much 
time has elapsed. Once a key is pressed, the computer GETs the 
ATASCII code and calls it Al. At lines 160 and 170, A1 is 
converted to its CHR$ and placed in its proper place in ANS$. If 
Al equals 155 (ATASCII code for the RETURN key), the program 
moves to line 220, where the value of ANS$ is put into variable 
ANS. 

The final illustration. Program 3, is also a math quiz. In this 
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case the user is given unlimited time. This program combines 
elements of both Programs 1 and 2. 

This Atari timing device should be beneficial whether you 
wish to impose a time limit, simply time answers, or have users 
compete against each other or themselves. The timer has applica¬ 
tions for both educational programming and games. With some 
experimentation you should be able to adapt this timing device 
for use with your own programs. 


Sample Times 


LOC.20 LOC.19 


60 

60 

0 

100 

0 

100 

21 

42 

84 

176 

0 

0 

0 

0 

0 

0 


0 

1 

2 

2 

3 

4 

14 

28 

56 

112 

255 

60 

0 

0 

0 

0 


LOC.18 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

16 

100 

150 

255 


TIME 

MIN:SEC 

0:01 

0:05 

0:08 

0:10 

0:12 

0:18 

1:00 

2:00 

4:00 

8:00 

18:08 

40:40 

291:17 

1820:35 

2730:52 

4642:29 


Program 1. Atari Timer 

10 REM ATARI TIMER 
20 REM 

30 REM THIS PROGRAM DEMONSTRATES HOW 
40 REM TO USE ATARI TIMER: 

50 REM ADDRESS 18,19,20 
60 REM IT FIGURES HOW LONG IT TAKES 
70 REM YOU TO PRESS THE <RETURN> KEY. 
80 REM RUN THE PROGRAM THEN PRESS 
90 REM <return> 

100 REM PROGRAM RUNS BETTER WITHOUT 
110 REM REMARK STATEMENTS OR GOTO 120 
120 OPEN #1,4,0,"K:" 

130 FOR Z =18 TO 20:POKE Z,0:NEXT Z 
140 GET #1,D:IF D=155 THEN 160 
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150 60T0 140 

160 A = P E E K(20) :B = P E E K(19) :C = PEEK(IB) 

170 SEC =I NT ( (4.267*256*0 + (B*4.267) + (A/60) ) 
1B0 MIN=INT(SEC/60) 

190 M=MIN*60 
200 SEC=SEC—M 

210 PRINT MIN;" MINUTES ";BEC;" SECONDS" 

Program 2. Timed Math Quiz 

10 REM TIMED MATH QUIZ 
20 REM 

30 REM THIS IS A TIMED MATH QUIZ 

40 REM CHANGE LINE 130 TO A=1 

50 REM ALLOWS 4 1/4 SECOND 

60 REM A=2 ALLOWS B 1/2 SECONDS 

70 REM A=3 ALLOWS 12 3/4 SECONDS, ETC. 

80 OPEN #1,4,0,"K:":DIM ANS$<10) 

90 PRINT :Q1=INT(RND(0)*20):Q2=INT(RND(0)*20 
) : X=1 

100 PRINT Qlj" + ”;Q2;"=”; 

110 POKE 18,0:POKE 19,0:POKE 20,0 
120 A=PEEK(19):B=PEEK(20) 

130 IF A = 2 THEN 1B 0:REM B 1/2 SECONDS 
140 IF PEEK(764)=255 THEN 120 
150 GET #1 ,A1: IF Al = 155 THEN 220 
160 ANS$(X,X)=CHR$(A1) 

170 PRINT ANS$(X,X);:X=X+1:GOTD 120 
1B 0 PRINT :PR I NT "TIME’S UP" 

190 PRINT "THE ANSWER IS ”;Q1+Q2 
200 FOR W=1 TO 400:NEXT W 
210 ANS$=” ”:GOTO 90 
220 ANS=VAL(ANS$):PRINT 

230 IF ANS=Q1+Q2 THEN PRINT :PRINT "CORRECT" 
:GOTO 200 

240 PRINT :PR I NT "SORRY”:PRINT :GOTO 190 

Program 3. Revised Math Quiz 

10 REM REVISED MATH QUIZ 
2 0 REM 

30 REM THIS PROGRAM COMBINES ELEMENTS 
40 REM OF PROGRAMS 1 AND 2. 

50 REM IT GIVES MATH QUIZ AND TELL HOW 
60 REM LONG IT TOOK YOU TO DO EACH 
70 REM PROBLEM. 

80 OPEN #1,4,0,”K:":DIM ANS*(10) 

90 PRINT :Q1=INT(RND(0)*20):Q2=INT(RND(0>*20 
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100 PRINT Ql;“ + ";D2;" = " ; 

110 POKE IB,0:POKE 19,0:POKE 20,0 
120 IF PEEK(764)=255 THEN 120 
130 GET # 1 , A 1 : IF Al = 155 THEN 190 
140 ANS$(X,X)= CHR$(A1) 

150 PRINT ANS$(X,X);:X = X + 1:GOTO 120 
160 PRINT "THE ANSWER IS “;Q'.+Q2 
170 FOR W=1 TO 1000:NE X T W 
180 ANS*=" ":GOTO 90 

190 A = P E E K(20) :B = P E E K(19) :C=PEEK(18) 

200 ANS=VAL(ANS$):PRINT 

210 IF ANS=Q1+ 02 THEN PRINT :PRINT "CORRECT" 
:GOTO 230 

220 PRINT :PRINT "SORRY" 

230 SEC=INT((4.25*256*C)+(B*4.25)+(A/60>) 

240 MIN=INT(SEC/60) 

250 M=MIN*60 

260 SEC=SEC-M 

270 IF MINO0 THEN 290 

280 PRINT "THAT TOOK YOU ”;SEC;" SECONDS":GO 
TO 300 

290 PRINT "THAT TOOK YOU ";MIN;" MINUTES":PR 
INT "AND ";SEC;" SECONDS" 

300 GOTO 170 
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Blinking Characters 

■■■■■■■ Frank C. Jones 


Make your messages stand out by having them blink. The technique is 
easy and simple to add to your programs. Once the machine language 
routine is POKEd into memory, the BASIC program can be removed — 
leaving the machine language there to do the work necessary for “Blinking 
Characters." 

The inverse video key on the Atari computer allows messages to 
be displayed in inverse video for special emphasis or eye-catching 
effects. Another, sometimes even more dramatic, method of 
catching the viewer's eye is to have the message flash on and off, 
or blink. There is no simple command in Atari BASIC to produce 
this effect, but the key to producing it lies in the register, main¬ 
tained by the operating system, called CHACT, decimal address 
755 ($2F3). If bit one in this register is set to one, inverse video 
characters are displayed in inverse video; if it is set to zero, they 
are displayed normally. However, if bit zero is set to one, these 
characters are displayed as blank spaces (inverse video or normal 
blanks depending on bit one). 

Look for a Faster Solution 

With this information we can immediately write a program that 
will produce blinking characters on the screen, as Program 1 does. 
The trouble with this approach is that our BASIC program is 
completely preoccupied with timing loops and toggling bit zero of 
CHACT. If we try to incorporate this routine in a program that 
does anything else, the timing gets very difficult if not downright 
impossible. What we really want is a routine that will sit in the 
background and toggle bit zero of CHACT on a regular basis 
without interfering with any BASIC program that might be 
running at the time. Fortunately, the Atari has in it the resources 
we need to do just this. 

The Atari operating system maintains five separate timers 
that are incremented or decremented during every vertical blank 
period (the period between successive TV picture frames during 
which the screen is dark). Actually, most of them are updated 
only during "second stage" vertical blank; more about this in a 
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moment. One of these, called CDTMV2 ($21 A), is a two-byte 
down counter that can be set to any value between 1 and 65535. 
Every sixtieth of a second, during vertical blank, the operating 
system reduces this number by one, and when it counts to zero it 
performs a subroutine jump to the address that it finds in the two- 
byte vector called CDTMA2 ($228) and returns to the operating 
system, waiting for the next time the counter counts down to 
zero. 

Program 2 achieves this result by POKEing a machine 
language program into memory starting at the middle of page 6, 
location 1664 ($680), and transferring control to it via the USR 
function. We use the upper half of page 6 because the lower half 
can be overwritten if an INPUT command receives 128 or more 
bytes at one time. 

Analysis of the Program 

Program 3 is the machine language version of the program that 
does all the work. After setting up the equates that identify the 
various registers in lines 20-40 and starting the assembly at loca¬ 
tion $680 in line 50, we get down to setting ourselves up in busi¬ 
ness. Lines 80 to 170 pull the three parameters passed by the USR 
function off the stack and store them in the spaces we reserved for 
them in lines 260, 270, and 280. We will discuss these parameters 
further when we reach the points where they are used. 

Lines 190 to 220 store the address of our routine that does the 
actual blinking in the two-byte vector CDRMA2 in the usual low- 
byte, high-byte order. Lines 230 and 240 take the value of the 
parameter we have called PERIOD and store it in the actual timer 
location CDTMV2. Since this is the value that is decremented 
each sixtieth of a second, it is clear that the parameter PERIOD is 
just what its name suggests: the period, in sixtieths of a second, of 
the blink. With this final act the USR function has completed its 
work, so it returns to BASIC with the RTS at line 250. 

Lines 260 to 280 are the storage locations of the three parame¬ 
ters PERIOD, MASK, and FLIP; we already have seen the signifi¬ 
cance of PERIOD. The actual blink routine is simplicity itself. 
CHACT is loaded into the A register (line 300), the value is 
ANDed with the bits in MASK (line 310) to eliminate any bits that 
we do not want, and the remaining bits are exclusively ORed with 
the bits in FLIP (line 320) and restored in CHACT (line 330). We 
can now see the significance of the parameters MASK and FLIP: 
they define the bits of CHACT that we wish to use and toggle. 
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The routine ends by resetting the timer for the next period 
(lines 350, 360) and returning to the operating system vertical 
blank routines. After this, it is ready to wait for PERIOD more 
vertical blanks and then do it all over again. 

The BASIC program that POKEs the machine language into 
place does not have to remain in memory once it has done its 
work. It may be removed with a NEW statement, and a different 
program that uses the blinking characters can be loaded. In fact, 
the call to the USR function in line 30 of the BASIC program may 
be eliminated, and a different program may turn on the blinking. 
Pressing < SYSTEM RESET > will stop the blinking, but another 
call to USR (1664, PERIOD, MASK, FLIP) will restore it. 

You may experiment with the effect of toggling the various 
bits of CHACT by using different values of MASK and FLIP 
Changing MASK to 23 and leaving FLIP at 1 causes the inverse 
video to remain on during the blanking. If both MASK and FLIP 
are changed to 3, inverse video is on while the characters are 
displayed, but the blanks are normal blanks. Setting both parame¬ 
ters to 2 produces an alternation between regular and inverse 
video that is quite eye-catching. Finally, setting MASK and FLIP 
to 4 causes an effect that you will just have to see for yourself; I 
still haven't figured out what this is used for, but it is spectacular. 
Of course, PERIOD may be set to any value between 1 and 255 
that you wish to vary the rate with which the characters change. 

Since "second stage" vertical blank routines are suspended 
whenever IO is in progress, you will see that the blinking stops 
during any disk or cassette activity (or anything that uses the 
serial IO bus for that matter). You can achieve some unique effects 
with this short program, and I am sure that many novel programs 
will use this in ways that I have never thought of. 

Program 1. Blinking Characters 

10 CHACT=755 
20 DELAY=200 
30 PRINT "GMMMl" 

40 FOR 1=1 TO DELAYiNEXT I 

50 POKE CHACT,0 

60 FOR 1 = 1 TO DELAY:NE X T I 

70 POKE CHACT,1 

80 GOTO 40 

90 END 

Program 2. Character Blink Routine 

10 FOR 1=1664 TO 1718 
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20 READ B:POKE I,B:NEXT I 
30 A=USR(1664,30,1,1) 

40 END 

50 DATA 104,104,104,141,161,6,104,104,141,16 
2,6,104,104,141,163,6,169,164,141,40,2,16 
9,6,141,41 

60 DATA 2,173,161,6,141,26,2,96,0,0,0 
70 DATA 173,243,2,45,162,6,77,163,6,141,243, 
2,173,161,6,141,26,2,96 


Program 3. Machine Language Version 


0010 

0020 


0050 


0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 


;CHARACTER BLINK ROUTINE 
CHACT = *2F3 

CDTMV2 = *21A 

CDTMA2 = *228 

*=*0680 

;PULL PARAMETERS FROM STACK 
;AND STORE THEM 
PLA 
PLA 
PLA 

STA PERIOD 

PLA 

PLA 

STA MASK 

PLA 

PLA 

STA FLIP 

;STORE VECTOR TO BLINK ROUTINE 
LDA #BLINKS<*00FF 
STA CDTMA2 
LDA #BLINK/256 
STA CDTMA2+1 
LDA PERIOD 
STA CDTMV2 
RTS 


PERIOD *=*+1 

MASK *=*+1 

FLIP *=*+1 

;HERE IS THE BLINK ROUTINE 
BLINK LDA CHACT 

AND MASK 
EOR FLIP 
STA CHACT 

;RESET TIMER AND RETURN 
LDA PERIOD 
STA CDTMV2 
RTS 
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String Arrays 

Stephen Levy 


It is possible to simulate string arrays in Atari BASIC. The illustrations 
here show how. 

"If you want string arrays on your Atari computer, you'll just have 
to purchase Atari's Microsoft BASIC disk." A common belief, but 
not entirely true. You can create a string array using Atari BASIC. 
Microsoft BASIC does make the handling of arrays much easier, 
but it is possible to create a string array in Atari BASIC. 


Creating the Array 

What you will actually be creating is a long string which will hold 
all the elements of the array. In order that the array not have 
garbage in it, we must clean it out before using it. 

There are two ways to clean out the string. The program 
below simply DIMensions a string to 1000 and then fills the string 
with using a FOR/NEXT loop. Then it prints the string. 

100 DIM B*(1000) 

110 FOR fi=1 TO 1000 
120 B*(A,A>="*" 

130 NEXT A 
140 PRINT B* 

The next program does the same thing a little differently and 
much more efficiently. 

100 DIM B *(1000) 

110 B*=" % ":B*(1000)= "*":B* <2)=B* 

120 PRINT B* 

A lot faster, isn't it? You can use this method anytime you want to 
fill a large string with the same character. That is exactly what we 
must do to begin creating our string array. But this time we need 
to fill the string with blanks. 

Enter and RUN the program below. When the program asks 
for names, enter the names of ten friends, pressing RETURN after 
each. The program as written will allow names with up to ten 
letters. 
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100 DIM ARRAY*<100),ELEMENT*<10):PRINT CHR*( 
125) 

110 ..ARRAY*(100)=" ":ARRAY*<2)=ARR 

AY* 

120 FOR A=1 TO 10 

130 PRINT "NAME FOR ARRAY*(”;A;") PLEASE";:I 
NPUT ELEMENT* 

140 ARRAY*(A*10—9,A*10)=ELEMENT* 

150 ELEMENT *=" ":NEXT A 

160 PRINT 

200 FOR A=1 TO 10 

210 PRINT "ARRAY* ( ";A; ") IS ";ARRAY*<A* 10-9, 
A*10):NEXT A 
300 TRAP 340 

310 PRINT :PRINT "GIVE THE NUMBER (1 TO 10)" 
320 PRINT "OF THE ARRAY YOU WISH TO SEE";:IN 
PUT A 

330 PRINT ARRAY*<A*10-9,A*10):GOTO 310 
340 PRINT CHR*<253):GOTO 300 

Notice that the program sets up an array with ten elements and 
allows you to pick from any of the ten. Let's look more closely at 
how it is done. 

Line 100 DIMensions the array and clears the screen. Line 
110 fills the array with blanks. Line 120 tells the computer to do it 
ten times. Line 130 gets your input. 

Line 140 is the heart of the creation of the array. Within the 
parentheses the computer is told what part of the string should 
hold your input string ELEMENTS. The first time through A = 1; 
therefore, ARRAY$(A*10 - 9,A*10) will mean ARRAY$(1,10), or 
the first 10 positions in the string. When A = 2, we place 
ELEMENTS in the positions 11 to 20 (2*10 -9 = 11 and 2*10 = 20). 
We will continue to do this until the string is full. 

Line 210 does the same thing, but in reverse order: it reads 
ARRAYS and prints the proper part to the screen. Line 330 also 
does the same thing, but only for the part of the string you 
request. 

Try this: RUN the program and enter any ten names. Then 
press BREAK. Type PRINT ARRAYS without a line number, press 
RETURN, and see what happens. 

Now RUN the program again, but simply press RETURN 
without entering anything for the names. Notice that there 
appears to be nothing in ARRAYS. That is not really true—it is 
filled with blanks. Type PRINT ARRAYS again and see what 
happens. 
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You might wonder what function lines 300 and 340 serve. 
Those two lines prevent the program from crashing when an 
incorrect INPUT is entered. TRAP 340 sends the program to line 
340 instead of printing "ERROR 8 Line 320" when you enter a Q 
(or whatever) but the program requires a number between 1 and 
10. PRINT CHR$(253) rings the buzzer, just as PRINT CHR$(125) 
in line 100 clears the screen. 

Armed with this little bit of information, you now should be 
able to use string arrays in your own programs. 
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Sound Experimenter 

______Nj-i+r-j™,™ ■ 


If you've wanted more control over your Atari's sound, here's a solution. 
You can use this program to experiment, to add sound to other programs 
(via the SOUND or POKE instructions), and to govern all four voices 
and all aspects of special effects. 

Sound is one of the most important capabilities of the Atari 
computer. Not only does it permit four-part harmony if you are so 
inclined, but sound is an essential ingredient in games. It trans¬ 
ports you into the world of the game, filling your ears with the 
sound of a laser cannon, letting you hear force shields as they 
collapse around you. 

Unfortunately, the sound commands are among the most 
difficult to experiment with. The SOUND instruction can some¬ 
times be clumsy and inconvenient; for one thing, the sounds stay 
on until you turn them off with another SOUND instruction. 

Also, you can't achieve the full range of sound with the BASIC 
instruction, since using it changes any settings in AUDCTL (the 
register which controls sound effects). 

Sound control is a complicated matter, and simple programs 
cannot offer you complete control over the sounds. Joysticks 
couldn't govern four channels with nine registers. 

This program takes a little practice to get used to, but it 
permits total control over all sound registers plus AUDCTL, turns 
the channels on individually, and shuts them all off at once when 
you need silence. When you are satisfied with the sounds, you 
can display the appropriate BASIC statements in either the POKE 
or the SOUND format. 

An Overview 

Lets first briefly summarize the Atari sound system. (For 
complete details, see the Atari Personal Computer System Hardware 
Manual, pages III.12 through III.14.) There are four independent 
sound channels whose distortion, frequency, and volume can be 
independently controlled. These are addressed by the SOUND 
instruction with the numbers 0 through 3. The Hardware Manual 
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refers to them as 1 through 4. The sound data can be independ¬ 
ently POKEd into registers 53760 through 53767. The odd 
numbers control volume and distortion, and the even numbers 
control the frequency. Register 53768 is AUDCTL, which controls 
all of the sound channels in one way or another. If you use the 
BASIC SOUND instruction, any changes you may have made to 
AUDCTL are reset—AUDCTL is set to zero. Thus you do not 
have full control of the sounds with the SOUND instruction. 

This program attempts to give you easy control over all of 
these parameters. Compromises to reduce complexity have been 
made in favor of the notation and numbers used in the SOUND 
instruction. See the BASIC Reference Manual for further informa¬ 
tion. 

The figure shows the display that you will see upon 
RUNning and entering the commands. The first eight lines, 
numbered B7 through BO, are the bits in the AUDCTL Register. To 
change bit seven to 1, type B7 and RETURN. To change it back to 
zero, type B7 and RETURN again. These are technical changes 
that give no indication of what the new sound will be like. Experi¬ 
mentation is best. Suffice it to say that using B1 through B4 turns 
on both of the sound channels associated with bit seven. 

To discuss the next five lines of the figure, we have to jump 
down to the lines labeled D: and X:. There are two types of entries 
to make this program, those which are purely commands and 
those which require numbers. If you need to enter a number, 
enter the number first and press RETURN. If it is a pure 
command, simply enter the command and RETURN. If you wish 
to work with sound channel zero, type the following sequence: 0, 
RETURN, REG, RETURN. A 0 will appear after SOUND 
(REG)ISTER on the display. For a pure tone, type 10, RETURN, 
DIS, RETURN, and a 10 will appear after (DIS)TORTION:. Simi¬ 
larly, 100, RETURN, FRE, RETURN, and 8, RETURN, VOL, 
RETURN, will complete this part of the display. 

To hear this sound, type 0, RETURN, CH, RETURN, and to 
turn it off, type OFT RETURN. To see the POKE values for this 
sound, type PDIS, RETURN, and the list of nine POKEs will 
appear on the screen. Copy these POKEs into your program, and 
you will duplicate the sound that you hear. The top right POKE is 
AUDCTL. The next four rows are channels 0 through 3—the left 
column is the distortion and volume, and the right is the 
frequency for each channel. 

If AUDCTL is 0—which is the same as bits B0 through B7 
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being all 0—then the SOUND instruction may be used. To see the 
SOUND instructions, type SDIS, RETURN, and the POKEs will 
be replaced with SOUNDS. 

The "force" output is in the odd-numbered POKE registers 
and produces a click from the TV It is turned off and on by use of 
FRC, RETURN. If you have set any of the AUDCTL bits, you must 
use the POKEs to duplicate the sounds. The sound channels must 
be turned on individually by the CH command. OFF turns off all 
channels. If you make a change and want to hear it, type the 
channel number and CH again. This may seem cumbersome, but 
otherwise the sounds would always be on. 


Screen Display 

AUDCTL (REG)ISTER 4 

9 BIT POLY: (B7): 0 

clock Ch.O w/1.79 MHz: (B6): 0 

clock Ch.2 w/1.79 MHz: (B5): 0 

clock Ch.1 w/Ch.O: (B4): 0 

clock Ch.3 w/Ch.2: (B3): 0 

clock Ch.O w/Ch.2 HiP: (B2): 0 

clock Ch.1 w/Ch.3 HiP: (B1): 0 

15 kHz: (BO): 0 

SOUND (REG)ISTER 0 
(DIS)TORTION: 10 

(FRE)QUENCY: 100 

FORCE OUTPUT: 0 

(VOL)UME: 8 

X: 

D: ?■ 

REG DIS FRE FRC VOL 
OFF CH 

PDIS SDIS POKE 53768, 0 

POKE 53761,168 POKE 53760,100 
POKE 53763, 0 POKE 53762, 0 
POKE 53765, 0 POKE 53764, 0 
POKE 53767, 0 POKE 53766, 0 


Sound Experimenter 

80 DIM S<5,8),IN*(50) 

90 FOR 1=0 TO 8:F OR J=0 TO 5:S(J, I)=0:NEXT J 
:NEXT I 

100 RE6 = 5000:DI 8 = 5100:FRE =5200:FRC =5300:OFF = 
5400 
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102 CLD=5900:CLX = 6000:VQL = 6100:POKAUD = 6200: C 
H=6300:START=6400:REGDIS=6500:BUZZ=6600 
104 PDIS=6700:SDIS=6800:EDIS=6900 
1000 REM DISPLAY 
1002 GRAPHICS 0:POKE 752,1 

1008 POSITION 2,0:? "AUDCTL (REG)ISTER 4" 

1010 POSITION 2,1:7 "Ill SPACES!9 BIT POLY:(B 
7) : " 

1020 POSITION 2,2:? "clock Ch.0 w/1.79 MHz : ( 
B6) : " 

1030 POSITION 2,3:? "clock Ch.2 w/1.79 MHz : ( 
B5) : ” 

1040 POSITION 2,4:? "14 SPACESJclock Ch.l w/ 
Ch.0: (B4) : " 

1050 POSITION 2,5:? "14 SPACESlclock Ch.3 w/ 
Ch.2:(B3):" 

1060 POSITION 2,6:? "clock Ch.0 w/Ch.2 HiP:( 
B2) : " 

1070 POSITION 2,7:? "clock Ch.l w/Ch.3 HiP:( 

B 1 ) : " 

1080 POSITION 2,8:? "115 SPACES!15 kHz:(B0):“ 
1090 POSITION 2,9:? "{5 SPACES1SOUND (REG)IS 
TER" 

1100 POSITION 2,10:? “C6 SPACES! (DIS)TORTI ON 

1110 POSITION 2,11:? "17 SPACES!(FRE)QUENCY: 

1120 POSITION 2,12:? "16 SPACES!FORCE OUTPUT 

1126 POSITION 2,13:? "<10 SPACES!(VOL)UME:" 

1128 POSITION 2,14:? "X:" 

1130 POSITION 2,15:? ”D:" 

1140 POSITION 2,16:? "REG DIS FRE FRC VOL" 

1150 POSITION 2,17:? "OFF CH" 

1160 POSITION 2,18:? "PDIS SDIS" 

1500 GOSUB START 

2000 REM JUMP TABLE 

2008 FOR ZZZ=1 TO 2 STEP 0 

2010 POSITION 5,15:POKE 752,0:INPUT IN*:POKE 
752, 1 

2020 TRAP 2040:A=VAL<INt):TRAP 40000 
2030 POSITION 5,14:? A:GOSUB CLD 
2040 IF IN*="REG" THEN GOSUB REG 
2042 IF IN*="DIS" THEN GOSUB DIS 
2044 IF INt="FRE" THEN GOSUB FRE 
2046 IF IN*="FRC" THEN GOSUB FRC 

2048 IF IN$="OFF" THEN GOSUB OFF 

2049 IF IN*="CH" THEN GOSUB CH 
2058 IF IN*="VOL" THEN GOSUB VOL 
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2060 IF IN*="B7" THEN S(4,7)= NOT (S(4,7)):P 
OS ITI ON 30,1:? S(4,7):G0SUB CLD 

2061 IF IN*="B6" THEN S(4,6)= NOT <S(4,6)):P 
OSITI ON 30,2:? S(4,6):G0SUB CLD 

2062 IF IN*="B5” THEN S(4,5)= NOT (S(4,5)):P 
OSITI ON 30,3:? S(4,5):GOSUB CLD 

2063 IF INt="B4" THEN S(4,4)= NOT (S(4,4)):P 
OSITI ON 30,4:? S(4,4):G0SUB CLD 

2064 IF INI^-BS" THEN S<4,3)= NOT <S(4,3)):P 
OS ITI ON 30,5:? S(4,3):G0SUB CLD 

2065 IF I N ♦ = " B 2 " THEN S(4,2>= NOT <S(4,2)):P 
OS ITI ON 30,6:? S(4,2):G0SUB CLD 

2066 IF IN $ ="B1” THEN S(4,l)= NOT (S(4,1)):P 
OS ITI ON 30,7:? S(4,l):GOSUB CLD 

2067 IF IN$="B0" THEN S<4,0)= NOT (S(4,0)):P 
OS ITI ON 30,8:? S(4,0):GOSUB CLD 

2070 IF IN*="PDIS" THEN GOSUB PDIS 
2072 IF IN*="SDIS" THEN GOSUB SDIS 
2980 IF F AIL=1 THEN GOSUB BUZZ 

2989 FA IL = 0 

2990 NEXT ZZZ 

5000 REM REG REGISTER SET 

5010 IF A< 0 OR A >3 THEN FAIL=1 

5020 IF A >0 OR A< 4 THEN POSITION 24,9:? A 

5030 C=A:REM S<C,B> 

5040 GOSUB REGDIS 

5088 GOSUB CLD:GOSUB CLX 

5090 RETURN 

5100 REM DIS DISTORTION LEVEL 
5110 IF A< 0 OR A >14 THEN FAIL=l:GOTO 5180 
5112 IF INT(A/2)-A/2<>0 THEN FAIL=l:GOTO 518 
0 

5120 IF A=0 THEN D1=0 

5121 IF A = 2 THEN D1=32 

5122 IF A=4 THEN Dl=64 

5123 IF A=6 THEN Dl=96 

5124 IF A=8 THEN Dl=128 

5125 IF A=10 THEN Dl=160 

5126 IF A=12 THEN Dl=192 

5127 IF A=14 THEN Dl=224 
5130 POSITION 21,10:? A 
5140 S(C,1>=D1:S(C,5)=A 
5170 S(C,8)=A 

5180 GOSUB CLD:GOSUB CLX 
5190 RETURN 

5200 REM FRE FREQUENCY STORE 
5210 IF A< 0 OR A >255 THEN FAIL=1 
5218 POSITION 21,11:? "C8 SPACES)" 

5220 POSITION 21,11:? A 
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5230 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5380 

5390 

5400 

5410 

5480 

5490 

5900 

5910 

5990 

6000 

6010 

6090 

6100 

6110 

6120 

6122 

6130 

6180 

6190 

6200 

6208 

6210 

6211 

6212 

6213 

6214 

6215 

6216 
6217 
6220 
6290 
6300 
6310 
6320 

6322 

6324 


S(C,2)=A 

GOSUB CLD:GOSUB CLX 
RETURN 

REM FRC SET FORCE BIT 

IF A = 0 THEN S ( 0,3 ) = NOT S<0,3) 

IF A=1 THEN S ( 1,3 ) = NOT S<1,3> 

IF A=2 THEN S<2,3)= NOT S(2,3) 

IF A=3 THEN S<3,3)= NOT S(3,3> 
POSITION 21,12s? S(C,3) 

GOSUB CLD 
RETURN 

REM OFF TURN OFF SOUND 

POKE 53761,0:POKE 53763,0:POKE 53765, 
POKE 53767,0 
GOSUB CLD 
RETURN 

REM CLD CLEAR D POS. 

POSITION 5,15s? "{20 SPACES!" 

RETURN 

REM CLX CLEAR X POS. 

POSITION 5,14s? "{21 SPACES}":A=0 
RETURN 

REM VOL VOLUME SET 

IF A< 0 OR A >15 THEN FAIL=lsGOTO 6180 
POSITION 21,13s? ”{12 SPACES!” 
POSITION 21,13s? A 
S(C,4)=A 


GOSUB CLDsGOSUB CLX 
RETURN 

REM POKAUD POKE AUDCTL VALUE 
SUM = 0 

IF S(4,0)=1 THEN SUM=SUM+1 
IF S(4, 1 ) = 1 THEN SUM = SUM + 2 
IF S(4,2>=1 THEN SUM=SUM+4 
IF S(4,3)=l THEN SUM=SUM+8 
IF S(4,4)=l THEN SUM=SUM+16 
IF S < 4,5 ) = 1 THEN SUM=SUM + 32 
IF S(4,6)=l THEN SUM=SUM+64 
IF S(4,7)=1 THEN SUM=SUM+128 
POKE 53768,SUM 
RETURN 

REM CH TURN ON SOUND CHANNELS 
GOSUB POKAUD 

IF A=0 THEN POKE 53761,S<0,1>+S(0,4>s 
KE 53760,S(0,2) 

IF A=1 THEN POKE 53763,S ( 1, 1)+S<1,4) : 
KE 53762,S(l,2) 

IF A=2 THEN POKE 53765,S(2,1)+S(2,4)s 
KE 53764,3(2,2) 


PO 

PO 

PO 
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6326 IF A=3 THEN POKE 53767,S I 3, 1)+S I 3,4> :PO 
KE 53766,SI3,2) 

6380 GOSUB GL X:GOSUB CLD:GOSUB REGDIS 
6390 RETURN 

6400 REM START SET UP 

6410 FOR 1=1 TO 8:POSITION 30,1:2 "0":NEXT I 
6490 RETURN 

6500 REM REGDIS DISPLAY OF REGISTER 

6505 POSITION 21,12:2 "13 SPACES)" 

6506 POSITION 21,12:2 S(C,3) 

6510 POSITION 21,11:2 "C6 SPACES}" 

6511 POSITION 21,11:2 SIC,2) 

6520 POSITION 21,10:2 ”C6 SPACES)" 

6521 POSITION 21,10 

6522 IF S(C,1)=224 THEN 2 "14" 

6523 IF SIC,1)=192 THEN 2 "12’ 

6524 IF SIC,1)=160 THEN 2 "10" 

6525 IF SIC,1)=128 THEN 2 ”8" 

6526 IF SIC,1)=96 THEN 2 "6“ 

6527 IF SIC,1)=64 THEN 2 ”4" 

6528 IF SIC,1)=32 THEN 2 "2" 

6529 IF SIC,1>=0 THEN 2 ”0" 

6530 POSITION 21,13:2 " <6 SPACES!)" 

6531 POSITION 21,13:2 SIC,4) 

6590 RETURN 

6600 REM BUZZ 
6610 2 ”CBELL>” 

6690 RETURN 

6700 REM PDIS DISPLAY OF POKE DATA 
6705 GOSUB EDIS 

6710 POSITION 20,18:2 "POKE 53768, ";SUM 

6720 POSITION 2,19:2 "POKE 53761, ";S(0,1)+S 

10.4) :POSITION 20,19:2 “POKE 53760, ";S 

10,2) 

6730 POSITION 2,20:2 "POKE 53763, "jSU.D+S 
I 1,4) :POSITION 20,20:2 "POKE 53762, ”;S 

11,2) 

6740 POSITION 2,21:2 "POKE 53765, ”;SI2,1)+S 

(2,4):POSITION 20,21:2 "POKE 53764, ";S 

12,2) 

6750 POSITION 2,22:2 "POKE 53767, ";SI3,1)+S 

13.4) :POSITION 20,22:2 "POKE 53766, ";S 

13,2) 

6780 GOSUB CLD 
6790 RETURN 

6800 REM SDIS DISPLAY OF SOUND DATA 

6810 POSITION 2,19:2 "SOUND 0, ";SI 0,2) ; ", " 

; S 10,8) ; " , " ; S I 0,4 ) 
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6820 POSITION 2,20:? "SOUND 1, " ; S < 1,2 > ; " , 

; S ( 1,8) ; " , " ; S ( 1,4 ) 

6830 POSITION 2,21:? "SOUND 2, ";S(2,2);", 

; S ( 2,8 ) ; ”, " ; S ( 2,4 ) 

6840 POSITION 2,22:? "SOUND 3, ";S<3,2);", 

; S ( 3,8 ) ; " , " ; S ( 3,4 > 

6880 GOSUB CLD 
6890 RETURN 

6900 REM EDIS ERASE PDIS &SDIS 
6910 POSITION 20,18:? ”{18 SPACES!" 

6920 POSITION 2,19:? "{35 SPACES!" 

6930 POSITION 2,20:? "{35 SPACES!" 

6940 POSITION 2,21:? "{35 SPACES!" 

6950 POSITION 2,22:? "{35 SPACES!" 

6990 RETURN 
7000 END 
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16-Bit Music 

■■■■^■IFred Tedsen 


Did you know that you can improve the tuning of your Atari's notes and 
extend its range dramatically? Normally you can only choose among 256 
notes with the ordinary SOUND command. These subroutines let you 
have more than 65,000 frequencies to make music that's more precise and 
more pleasant to hear. 

As I listened to my Atari play a new song that I had entered from 
a magazine listing, I could hear that some of the notes were not 
quite right. The music extended into the third octave above 
middle C, and though the tune was recognizable, some of the 
notes were off pitch enough to make listening to the tune 
unpleasant. I decided that it was time for me to investigate 16-bit 
music. What I discovered was not only that the accuracy of the 
notes could be improved dramatically, but also that the effective 
range could be more than doubled. 

How SOUND Works 

Before we discuss 16-bit music, let's take a look at what is 
happening when we use the SOUND statement, or in other 
words, eight-bit sound, in Atari BASIC. The following registers in 
the POKEY chip are used for sound generation: 

AUDFl (53760) - Audio Frequency Register 1 
AUDC1 (53761) - Audio Control Register 1 
AUDF2 (53762) - Audio Frequency Register 2 
AUDC2 (53763) - Audio Control Register 2 
AUDF3 (53764) - Audio Frequency Register 3 
AUDC3 (53765) - Audio Control Register 3 
AUDF4 (53766) - Audio Frequency Register 4 
AUDC4 (53767) - Audio Control Register 4 
AUDCTL (53768) - Audio Mode Control Register 

The audio control registers are used to set volume (low order four 
bits) and sound content (high order bits). Thus there are 16 
different volume settings and a variety of sounds available. For 
this discussion we are concerned only with pure tones, corre¬ 
sponding to SOUND x,x,10,x. 
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The audio frequency registers are used to control the divide 
by N circuits. These circuits use the contents of the frequency 
registers to divide a "clock" frequency to produce different output 
frequencies. Since they are one-byte registers, they are referred to 
as eight-bit dividers. The output frequency is determined by the 
formula FO = F/(2 x (AUDF +1)), where F is the clock frequency 
and AUDF the value in the audio frequency register. With a 
normal clock rate of 64 kilohertz (or more exactly 63,921 cycles per 
second), the frequency range is about 125 hertz to 32 kilohertz. 

The effective range for music is limited to about four octaves. 
This is because the tuning accuracy of notes being reproduced 
becomes progressively worse as the frequency gets higher. Figure 
1 illustrates this very clearly. It shows how far out of tune, meas¬ 
ured in "cents," each note in the four octave range is. (A cent is 
1/100 of a half-step. A sound which is 50 cents sharp or flat is 
exactly halfway between two notes.) Notes which are less than 
ten cents out of tune are usually acceptable, though two notes 
played together could sound bad if their combined inaccuracy is 
too large. For example, if you play a note which is eight cents flat 
followed by a higher note which is eight cents sharp, the second 
note will probably sound out of tune. 


Figure 1. Timing Inaccuracy of Musical Notes in Cents Using 
8-Bit Dividers 



Tuning inaccuracy results from having a limited number of values 
to use as dividers. With an eight-bit divider, only 256 unique 
frequencies can be reproduced. The A note in the fourth octave 
should be 440 cycles per second. To reproduce this note on the 


46 






Sound 


2 


Atari, the number 72 is used as a divider. The resulting frequency 
is 437.8 hertz, which is 8.6 cents flat. If instead we use 71 as a 
divider, the output frequency is 443.9 hertz. This note is 15.3 cents 
sharp and is obviously a poorer choice than the note using 72. 

The choices become more restricted as the notes get higher. For 
the A note in the sixth octave, for example, 17 produces a note 
which is 15.3 cents sharp, while 18 produces a note 78.4 cents flat 
(closer to G# than A). 

Fine-tuning: 16-Bit Dividers 

Luckily, the Atari provides a solution to this problem: 16-bit 
dividers. With a 16-bit divider 65,536 different output frequencies 
are possible. For example, to reproduce the A in octave 6, we 
could use either 502 (1.8 cents flat) or 501 (1.6 cents sharp) and not 
be able to hear any difference. Figure 2 shows how dramatically 
the range and accuracy are improved. 

Figure 2. Tuning Inaccuracy of Musical Notes in Cents Using 
16-Bit Dividers 
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More accurate tuning does not come without a price. Sixteen- 
bit dividers are obtained by combining frequency registers: 
AUDF1 with AUDF2, or AUDF3 with AUDF4. This gives us a 
choice of one 16-bit and two eight-bit voices, or two 16-bit voices. 
We also cannot use the SOUND statement, even for the eight-bit 
voices, as it will confuse our settings for 16-bit sound. As it turns 
out, this is not much of a problem since machine language 
routines to play the music are simple and have the added advan¬ 
tage of being faster than separate SOUND statements. 
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Now let's look at how 16-bit sound is set up. The audio mode 
control register has four bits for this purpose: 

Bit 6 —Clock channel 1 with 1.79 megahertz instead of 64 kilohertz 
Bit 5—Clock channel 3 with 1.79 megahertz 
Bit 4 —Combine channels 1 and 2 
Bit 3 —Combine channels 3 and 4 

The other bits in AUDCTL have no bearing on this discussion, so 
we will ignore them. If you are curious, see Chapters 2 and 3 in 
the Hardware Manual. 

The 1.79 megahertz (1.78979 megahertz, to be exact) clock rate 
is required to obtain the hill range of output frequencies. The 
formula for determining output frequency is a little different: 

FO = F/(2 x (AUDF + 7)). In this case, AUDF is the two-byte 
frequency register value. The second register of the pair is the low 
order byte, either AUDF2 or AUDF4. For example, to use 1049 as a 
divider with registers 1 and 2, we would POKE 4 in AUDF2 and 
25 in AUDF1. 

The audio control register of the low order frequency register 
is not used and should be set to zero. Volume is controlled with 
the second control register only (AUDC2 or AUDC4). 

16-Bit Subroutines 

Now take a look at the BASIC 16-bit sound subroutines. The first 
plays one 16-bit and two eight-bit voices, and the second plays 
two 16-bit voices. Notice the SOUND 0,0,0,0 at the beginning of 
each routine. This statement must be included to initialize POKEY 
for sound. The POKE 53768,X initializes AUDCTL for 16-bit 
sound, either one or two voices. Remember that any SOUND 
statement executed later will reset this register to zero. 

To use these subroutines, simply copy one or the other into 
your program and do a GOSUB 20100 once at the beginning of the 
program. Then, to play music, do the appropriate machine 
language call, X = USR(ADR(HF1$),N1,V1,N2,V2,N3,V3) or 
X = USR(ADR(HF2$),N1,V1,N2,V2). Nx is the note to be played 
and Vx is the volume. N1 is the 16-bit voice in the three-voice 
routine. You don't need to pass parameters for unused voices. For 
example, if you want only the 16-bit voice in the three-voice routine, 
you can use X = USR(ADR(HF1$),N1, VI), but to use only an eight- 
bit voice you would have to use X = USR(ADR(HF1$),0,0,N2,V2). 

The note tables give you the most accurate values for four 
octaves of eight-bit and nine octaves of 16-bit notes. In a practical 
sense, the first octave of 16-bit notes is not usable because there 
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are some loud harmonics which tend to mask the actual note 
being played. You can get some good sounds if you hook up to a 
stereo amplifier, however. Notice that the eight-bit value for F# in 
the third octave is 172 rather than 173 as shown in the BASIC Refer¬ 
ence Manual. 173 produces a note which is more than 12 cents flat, 
while the note from 172 is only 2.4 cents flat. 

16-Bit and 8-Bit Note Table 

NOTE 16-BIT 8-BIT NOTE 16-BIT 8-BIT_ 


C 27357 
C# 25821 
D 24372 
D# 23003 
E 21712 
F 20493 
F# 19342 
G 18256 
G# 17231 
A 16264 
A# 15351 
B 14489 


OCTAVE1 


C 

C# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 

B 


3414 

3222 

3040 

2869 

2708 

2555 

2412 

2276 

2148 

2027 

1913 

1805 


121 

114 

108 

102 

96 

91 

85 

81 

76 

72 


OCTAVE4 


64 


C 13675 

C# 12907 

D 12182 

D# 11498 

E 10852 

F 10243 

F# 9668 

G 9125 

G# 8612 

A 8128 

A# 7672 

B 7241 


OCTAVE2 


C 

C# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 

B 


1703 

1607 

1517 

1431 

1350 

1274 

1202 

1134 

1070 

1010 

953 

899 


60 OCTAVE 5 


C 

c# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 

B 


6834 

6450 

6088 

5746 

5423 

5118 

4830 

4559 

4303 

4061 

3832 

3617 


243 

230 

217 

204 

193 

182 

172 

162 

153 

144 

136 

128 


OCTAVE3 


C 

C# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 

B 


848 30 OCTAVE 6 


755 26 

712 25 

672 23 

634 22 

598 21 

564 19 

532 18 

501 17 

473 16 

446 15 
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NOTE 16-BIT 8-BIT 


NOTE 16-BIT 8-BIT 


C 

c# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 


C 

c# 

D 

D# 

E 

F 

F# 


421 

397 

374 

353 

332 

313 

295 

278 

262 

247 

233 

219 

207 

195 

183 

173 

163 

153 

144 


14 OCTAVE 7 


OCTAVE8 


C 

C# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 

B 


C 


136 

128 

120 

113 

106 


100 

94 

88 

83 

78 

73 

69 

64 

60 

57 

53 

50 
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Finally, some thoughts on when to use 16-bit music. If you have a 
piece of music which sounds fine using SOUND in BASIC, don't 
bother changing it—you probably won't be able to hear much 
improvement. I think you'll find that just about any music which 
extends into the fifth octave will be worth converting, however, 
especially if it is very complex. For three-part music, use the 16-bit 
voice for the highest notes. Some chord combinations may still 
sound slightly out of tune, in which case you might want to tune 
the 16-bit voice for the highest notes. Some chord combinations 
may still sound slightly out of tune, in which case you might want 
to tune the 16-bit voice a little sharp or flat to match the eight-bit 
voices. The large number of divider values available gives you 
plenty of possibilities. 

Program 1.16-Bit Sound Routine 

20000 REM 16-BIT SOUND ROUTINE 1 
20010 REM 

20020 REM 1 16-BIT & 2 8-BIT VOICES 
20030 REM 

20040 REM X=USR(ADR(HFlt),N1,VI,N2 ,V2 ,N3,V3) 
20050 REM 

20100 SOUND 0,0,0,0:X=64+16:POKE 53768,X 
20110 DIM HFli(56):RESTORE 20140 
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20120 FOR 1 = 1 TO 56:READ X:HF1 $(I, 1)=CHR$<X) 
:NE X T I 
20130 RETURN 

20140 DATA 104,170,104,141,2,210,104,141,0,2 

10.104.104.41.15.9.160.141.3.210 
20150 DATA 224,2,240,32,104,104,141,4,210,10 

4.104.41.15.9.160.141.5.210 

20160 DATA 224,4,240,14,104,104,141,6,210,10 
4,104,41,15,9,160,141,7,210,96 

Program 2.16-Bit Sound Routine 2 

20000 REM 16-BIT SOUND ROUTINE 2 
20010 REM 

20020 REM 2 16-BIT VOICES 
20030 REM 

20040 REM X=USR(ADR(HF2$),N1,VI,N2,V2) 

20050 REM 

20100 SOUND 0,0,0,0:X=(64+16)+(32+8):POKE 53 
768, X 

20110 DIM HF2*(41>:RESTORE 20140 

20120 FOR 1=1 TO 41:READ X:HF2$(I,I)=CHR*(X) 

:NE X T I 
20130 RETURN 

20140 DATA 104,170,104,141,2,210,104,141,0,2 

10.104.104.41.15.9.160.141.3.210 
20150 DATA 224,2,240,17 

20160 DATA 104,141,6,210,104,141,4,210,104,1 
04,41,15,9,160,141,7,210,96 
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Beginner's Keyboard 

Marty Albers 


Here is a short, simple program that gives very young computer users an 
entertaining introduction to the keyboard. 

Software for young children is hard to find. Most kids' games and 
educational software are difficult for the preschooler to under¬ 
stand. Relating screen movement to joystick control can be a hard 
concept to grasp. I wrote the following program for my two-year- 
old so he would not feel left out when the rest of the family used 
the computer. It was designed to be easy to use (just push a key), 
educational (learn letters and numbers), and entertaining (colors 
and sound), and to provide a friendly start into the world of 
computer literacy. 

Beginning programmers will also find this program 
rewarding, with some useful ideas to try on their own. An expla¬ 
nation of some of the less obvious lines follows. On lines 10 and 35 
you will see one method of keyboard input without selecting the 
RETURN key (see "Reading the Atari Keyboard on the Fly," 
COMPUTEl's First Book of Atari). Line 20 POKEs address 16 with 
112 to disable the BREAK key. Line 45 allows larger characters in 
Graphics modes 1 and 2 by using the PRINT #6; statement. Also 
on line 45 is a conversion of the keyboard input from ATASCII 
code to character format: CHR$ (I). 

Two sound registers are used (line 50), one with pure tones 
and one with distortions. Don't forget to turn the sounds off (line 
51). The "default colors" are used, a black screen and four others 
for the characters. To find the other colors, use the Atari logo key 
and shift between the upper- and lowercase. The RETURN key is 
used in line 41 to start a new row of characters. When the screen is 
full, you start again in line 42. Now begin! 

Beginner’s Keyboard 

1 REM : I = INPUT, L = LINE, R = ROW, T = TI ME 
10 OPEN #1,4,0,”K:“ 

15 GRAPHICS 2+16:L=0 
20 POKE 16,112 

25 FOR R=0 TO 20:IF R=20 THEN R=0:L=L+1 
30 POSITION R,L 
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35 GET #1 ,I 

40 IF 1=155 AND 1=11 THEN GOTO 15 

41 IF 1=155 THEN R=-1:L=L+1 

42 IF R=18 AND L=ll THEN GOTO 15 
45 PRINT #6;CHR*(I) 

50 SOUND 0,2*1,10,8:SOUND 1,2.5*I,8,10:FOR T 
= 1 TO 75:NE X T T 

51 SOUND 0,0,0,0:SOUND 1,0,0,0 
55 NEXT R 
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Spell ing Quiz 

™™™HEdward Perrin 


Here is an educational program that will help students learn their weekly 
spelling words. Word lists can be SAVEd to disk or tape for practice later. 
Requires 32Kfor disk and 16Kfor tape. 

"Spelling Quiz" allows you or your child to enter weekly spelling 
words into the computer and save them on tape or disk. All the 
words for the year can be saved at once, or each week can be 
saved separately (20 words at a time) as the school year 
progresses. 

The program allows you to enter up to 20 words at a time. I 
have found that most weekly spelling assignments are no more 
than 20 words, so this works out rather well. The program will 
accept fewer than 20 words, but no more than 20. 

The program prompts are self-explanatory, but it would be 
good to read through the following instructions. 

Load in the program with the BASIC cartridge inserted. The 
loading time for tape is about four minutes. 

Type in RUN. After the title page you will be asked if you 
want to Create or Retrieve a list of words to work on. You will also 
be asked if you are using a Disk or Tape. 

Creating Word Lists 

To create a list, simply type in up to 20 words, no more than 20 
letters each and with no leading or trailing spaces, one at a time, 
and hit the RETURN key. Be sure each word is spelled correctly 
before hitting RETURN. If you enter fewer than 20 words, type in 
an * following the last input. After the last word or the * you will 
be asked to type in some sort of identifier for that particular list. 
Use "Chapter 4" or "List 189," etc. Use an identifier that your child 
will understand. The identifier is used to make sure your child 
has retrieved the correct list. 

Disk users will be asked to enter a filename. Only the 
filename is necessary; the program will supply the "Dl:". Be sure 
to make the name unique and meaningful. 

Tape users will need a blank tape or a tape which has been 
used to SAVE other word lists. Be sure to note the tape counter 
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number on a sheet of paper and to store the paper with the word 
tape. 

If you already have words stored, just follow the prompts to 
LOAD the words. 

Check the list and the identifier to be sure that this is the list 
you wanted to use. If not, you have the option to LOAD a new list 
or create a new one as needed. 

Once the words are LOADed in with the Create or Retrieve 
option, your child is ready to use the program. You now choose 
one of three options: spell a Certain number of words correctly, 
spell an unlimited number of words correctly, or End. 

If you choose the C option, you will be graded, and the 
program will terminate when the number of words spelled 
correctly equals the number you entered at the prompt. If you 
choose the unlimited option (by pressing RETURN), you can spell 
only 10,000 words before the program terminates. It is easy to 
change the 10,000 to another upper limit. Change the number in 
the last line of the program to stop the program automatically at a 
preset number. 

The Quiz Begins 

When you have made all of the necessary choices, the game is 
ready to play. The screen will show the number of the word being 
scrambled, the score (the number of words spelled correctly), a 
scrambled word, and the attempt number. At the bottom of the 
screen is a GRAPHICS 0 window where you will type your 
answers. The word number on top will help the child who cannot 
figure out the scrambled word. The program checks spelling 
competence rather than ability to unscramble words, so there is 
no penalty for not unscrambling correctly. Use this option as you 
wish. 

Your child will then have three tries to spell the word 
correctly. If the spelling is correct, the screen will respond with an 
encouraging CORRECT and a happy sound. After three tries, the 
program will give the correct spelling and set up a different screen 
to allow the child to practice the misspelled word. 

Practice Screen 

The practice screen will not allow misspellings. It does allow the 
child to press the * to exit when he or she wants to. After each 
word in this mode, be sure to press the space bar, not RETURN. 
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Pressing RETURN will cause the computer to register an error in 
the spelling. 

After the number of correct spellings equals the number put 
in at the beginning, or if your child enters * instead of spelling a 
word during the main run, the quiz ends and your child is graded 
on his performance. If you think the grading is too strict, change 
the limits in the grading subroutine in line 9000-9999. 

After the grading, your child can go back and retrieve, or 
create and save a new file, or use the words already in the 
computer's memory. Your child has the option to end at this time. 

If he or she continues, the whole cycle repeats. 

Spelling Quiz 

10 DIM^^r20)V™<20t^C* (20) ,D*(20> ,E*(20) , F* 
(20),G*(20),H*(20),I*(20),J*(20),K*(20),L 
*(20),M*(20),N$(20),O*(20) 

20 DIM P*(20),Q*(20),R*(20),S*(20),T*(20),U* 
(20) ,ARRAY(20),Z*(20),STANDINGS(20),ANS*( 

1),WORD*(520),INWORD*(128) 

30 DIM WEL*(38),DK*(15),ZZ*(1):TIME=0 
40 GOSUB 3000 

54 GOSUB 13000 

55 PRINT "HOW MANY WORDS DO YOU WISH TO SPEL 
LC3 SPACES?CORRECTLY BEFORE ENDING THIS D 
RILL7C3 SPACES} «j;rrj:M ; »(.«J.'l>»J:IiIH SEEM " 

56 TRAP 56: INPUT RIGHT: IF RIGHT = 0 THEN 4000 

57 TRAP OFF:SCORE=0:ATT=0 

58 GOSUB 5200:TRAP OFF 

59 W1=0:W2=0:W3=0:W4=0:W5=0:W6=0:W7=0:W8=0:W 
9=0:W10=0:W11=0:W12=0:W13=0:W14=0:W15=0:W 
16=0:W17=0:W18=0:W19=0:W20=0 

60 IF SCORE=RIGHT THEN 1000 
65 NUM=1:W=INT(20*RND(1)+1) 

70 GOSUB 7000:IF A*="{20 SPACES? M THEN NUM=-1 
:GOSUB 7000:GOTO 65 

8® GRAPHICS 2:POKE 708,0:FOR AR=1 TO 20:ARRA 
Y(AR)=-l:NEXT AR:PRI NT "(BELL?“ p'INPUT ’* 

’ TO END QUIZ” 

90 POSITION 11,3:? #6;"SCORE"j" ";SCORE:POSI 
TION 2,0:7 #6;"#";W;" ON YOUR LIST" 

110 FOR L=1 TO 20:IF A*(L,L)=" " THEN L=L-1: 

A*=A*(1,L):GOTO 115 
112 NEXT L:IF L=21 THEN L=20 
115 FOR LTR=1 TO L 

120 ARR=INT(L*RND(0)+1):IF ARRAY(ARR)=1 THEN 
120 
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125 P=ARR-1 

130 POSITION P,7:? #6;At(LTR,LTR):ARRAY(ARR) 
=1:NEXT LTR :POKE 708,200 
135 TRY=0 

137 TRY=TRY+1:ATT=ATT+1:POSITION 0,9:? #6; "A 
TTEMPT # ";A T T 

140 INPUT Z$: IF Z$="*" THEN ATT = ATT-1:NUM = -1 
:BOSUB 7000:GOTO 1000 

141 IF Z$ = A* THEN SCORE=SCORE+1:FOR N=100 TO 

10 STEP — 1;SOUND 0,N, 10, 10:NEXT N:SOUND 


142 IF Zt = A$ THEN POSITION 12,6:? # 6 ; " H33BH3 
DO" : FOR N=1 TO 300:NEXT N:GOTO 60 

143 IF TRY=3 THEN FOR N=1 TO 100:SOUND 0,20, 
4,10:NEXT N:SOUND 0,0,0,0:GOTO 2000 

144 POSITION 0,2:? #6: " TUl iL IIII " : POSITION 0, 
3:? #6; '' CT3T TL i :i « . — " 

145 FOR N=1 TO 100:SOUND 0,11,4,10:NEXT N:SO 
UNO 0,0,0,0 

147 POSITION 0,2:? #6;"{8 SPACESJ":POSITION 
0,3:? #6;"{11 SPACESJ" 

150 GOTO 137 

1000 GRAPHICS 18:PRINT #6;" your score is ” 

;SCORE 

1010 PRINT #6:PR I NT #6;"time to quit for now 


1020 ? #6:? #6:? #6;"-C3 SPACESJCONGRATULATIO 
NS" 


1030 


2000 

2010 

2020 

2030 

3000 

3005 


4010 

4020 

4030 

5000 

5010 

5030 



GOSUB 5000:SOUND 0,0,0,0:SOUND 1,0,0,0: 
GOTO 9000 

POSITION 0,5:? #6;At:POSITI ON 0,4:? #6; 

" EHEH33H" : NUM = -1 : GOSUB 7000 

FOR N=1 TO 1000 

NEXT N:GOSUB 8000 

GOTO 60 

GRAPHICS 18:POSITION 0,4:? #6;" 

c3 spacesj aaasnE 

GOSUB 5000:SOUND 1,0,0,0:SOUND 0,0,0,0: 
RETURN 

GRAPHICS 18:POSITI ON 0,2:7 #6;"VERY GOO 
D WORK..." 

POSITION 0,6:? #6;"see you again later" 
POSITION 4,10:? #6; " J.U.T.T r '' 

GOSUB 5000:GOTO 7030 
FOR N=1 TO 200 
SOUND 0,RND (0) *200, 10,2 
NEXT N 
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5040 RETURN 

5100 FOR N=1 TO 100:SOUND 0,N,10,10:NEXT N:S 
OUND 0,0,0,0:RETURN 

5200 FOR N=255 TO 200 STEP -1:SOUND 0.N,10,1 
0:NEXT N:FOR N=225 TO 150 STEP -l:SOUND 
0,N,10,10:NEXT N 

5210 FOR N=175 TO 100 STEP -IrSOUND 0,N,10,1 
0:NEXT N:FOR N=150 TO 50 STEP -l:SOUND 
0,N,10,10:NEXT N:SOUND 0,0,0,0:RETURN 

7000 IF W=1 THEN B$ = WORD$ ( 1,20) : A$=B$: W1=W1 + 
NUM 

7001 IF W=2 THEN C$=WORD$(21,40):A*=C*:W2=W2 
+ NUM 

7002 IF W=3 THEN D$=WORD*(41,60):A$=D*:W3=W3 
+ NUM 

7003 IF W = 4 THEN E$=WORD*(61,S0) :A$ = E$:W4 = W4 
+ NUM 

7004 IF W=5 THEN F$=WORD*(S1,100):A$=F*:W5=W 
5 + NUM 

7005 IF W=6 THEN G$=WORD$(101,121):A$=6$:W6= 
W6+NUM 

7006 IF W=7 THEN H$=WORD$<121,140):A*=H$:W7= 
W7+NUM 

7007 IF W = S THEN I$ = WORD*(141, 160) :A*=I *:W8 = 
W8+NUM 

7&0S IF W = 9 THEN J * = WORD*(161, 1 80 ) :A$ = J *:W9 = 
W9+NUM 

7009 IF W=10 THEN K$=WORD$(181,200):A$=K$:W1 
0=W10+NUM 

7010 IF W=11 THEN L*=WORD*(201,220):A*=L*:W1 
1=W11+NUM 

7011 IF W=12 THEN M*=WORD*(221,240):A*=M$:W1 
2=W12 + NUM 

7012 IF W=13 THEN N*=WORD*(241,260):ft*= N*:W1 
3=W13 + NUM 

7013 IF W=14 THEN 0* =WORD*<261,280):A* = 0*:W1 
4=W14+NUM 

7014 IF W= 1 5 THEN P* = WORD*(281,300) :A$ = P$:W1 
5=W15+NUM 

7015 IF W=16 THEN Q$=WORD$(301,320):At=Q$:W1 
6=W16+NUM 

7016 IF W=17 THEN R*=WORD*(321,340):A* = R*:W1 
7=W17+NUM 

7017 IF W=18 THEN S* =WORD*(341,360):A* = S*:W1 
8=W18+NUM 

7018 IF W=19 THEN Tt=WORD$(361,380):A$=Tt:Wl 
9=W19 + NUM 

7019 IF W=20 THEN Ut=WORD$(381,400):A$=U$:W2 
0=W20+NUM 
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7020 RETURN 
7030 END 

8000 GRAPHICS 18: POKE 708, 100:? #6: " 

L » J .J^Mkjr t ^ T7TaT '' : PQ5 I T I ON 0,1:? #6;A$ 

8005 POSITION 0,2:? #6; " HUaCBDfepacebar. . . " 
8007 POSITION 0,3:? #6; " HHgBiMEH33gaEMg lIO 

8010 POSITION 0,4:? #6;"or type * to return" 

:L=0:COUNTER=0 
8100 OPEN #1,4,0,”K:" 

8150 L=L+1 
8200 GET # 1 ,CHAR 
8300 CLOSE #1 

8350 IF CHR* (CHAR)=”*" THEN GOTO 60 
8355 IF CHR$<CHAR)=" " THEN L=0:GOSUB 8400 

8360 IF CHR*(CHAR)<>A*(L,L) THEN GOSUB 12000 
:GOTO 8000 

8370 IF L=LEN(A*) THEN L=0 

8400 COUNTER = COUNTER+l:PRINT #6;CHR$(CHAR) ; : 
TRAP 40000 

8450 IF C0UNTER>139 THEN GOTO 60 
8500 GOTO 8100 
8600 RETURN 

9000 POKE 752, 1:PRI NT "HERE IS A LIST OF HOW 
MANY TIMES EACH WORD WAS SPELLED CORRE 
CTLY THIS TIME." 

9010 NUM=0:FOR W=1 TO 20:GOSUB 7000:NEXT W 
9050 FOR N=100 TO 240:SOUND 0,N,10,10:NEXT N 
:SOUND 0,0,0,0 

9100 ? Wl;" ";B$:? W2;" ";C*:? W3;" ”;D$:? W 

4;" " ;E*>:? W5;" ";F$:? W6; u ";G*:? W7;" 

";H*:? W8;" ";I*:? W9;" ";J$:? W10;" " 

; K* 

9150 ? W11;" ";L$:? W12;" ”;M$:? W13;" ";Nt: 

? W 1 4; " "j O♦:? W15;" ”;P$:? W 1 6 ; " ”;Q$: 

? W 1 7; " ”;R$:? W18;" ";S$:? W 1 9 ; " " ; T $ 

9200 ? W 2 0; " ”;Ut 

9250 POKE 752, 1 : POSITION 25,3:PRINT " ESEBEEIi 
3" :POSITI ON 28,5:PRINT ATT:FOR N=1 TO 2 
00:SOUND 0,255,10,8:NEXT N 
9260 POSITION 25,7:PRINT " HUEEiJHI" : POSITION 
28,9:PR I NT SCORE:FOR N=1 TO 200:SOUND 0 
,200,10,8:NEXT N 

9270 TRAP 9400:PER=INT( (SCORE/ATT) * 100) :POSI 
TION 25, 1 1 : PR I NT " HJHHMIJj" : POS I T I ON 28, 
13: PRINT PER;"’/." 

9280 FOR N=1 TO 200:SOUND 0,100,10,6:NEXT N 
9300 POSITION 25,15:? " 








Applications and Education 


9310 

9320 

9330 

9340 

9350 

9360 

9400 


10010 


10011 

10012 


10013 


10014 

10015 
10017 


10020 

10100 

10105 


10110 

10120 

10125 

10130 

10140 

10150 

10160 


THEN POSITION 27,17:? " TM " ; 

,21:? 

AND PER< 95 THEN POSITION 27, 
POSITION 25,21:? " 

AND P E R < S 8 THEN POSITION 27, 
POSITION 25,21:? " 

AND P E R < 7 8 THEN POSITION 27, 
POSITION 25,21:? " lilZlSIZIZMl " 

IF P E R < 7 0 THEN POSITION 27,17:? "■^”:P 

OS I T I ON 25,21:? "aSEEE^HB” 

SOUND 0,0,0,0 :POKE 752,0:GOTO 54 
PER=0:POSITION 28,13:PRINT PER:POSITION 
25, 1 1 : PRINT " H3H3MHJ" : GOTO 9280 

wel$= '■ 

■EDE^" : PRINT ''{CLEAR} ": FOR N=1 TO 37 : P 
RINT WEL*(N,N);:NEXT N:T I ME = TIME+1 
OFF=40000:P=0:? :? "DO YOU WANT TO ERE 
ATE OR SITRI EVE THE FILE”; 

O$="{20 SPACES]":FOR N=1 TO 520 STEP 20 
:WORD*(N.N+19)=0$:NEXT N 

? :? :? "ONCE YOU CREATE A FILE IT WIL 

L BE C5 SPACES]STORED ON TAPE OR DISK S 
O YOU CAN{5 SPACES]INPUT THE WORDS FRO 
M" 

? "THE TAPE OR DISK INSTEAD OF TYPING 
{3 SPACESITHE SAME WORDS IN EVERY TIME 
YOU PLAY.” 

? : ? : ? "TYPE IN E OR E AND HIT 

NOW ! “ 

TRAP 10014:INPUT ANS* 

TRAP 10017:? "ARE YOU USING SS=>PE OR El 
SK": INPUT Z Z $: IF ZZ*(1, 1)<>"T" AND ZZ* 

( 1 , 1)< >”D" THEN 10017 

IF ANSt<>"C" THEN GOTO 11000 
? "TYPE IN WORDS NOW":N=l 


IF P E R > = 9 5 
POSITION 25 
IF P E R > = 8 8 


IF PER > = 7 8 
IF PER>=70 


rail ;T:3 -XHi j M ■] gag ;I■ 11 ■ J TT-LS?» < E T U R N 
€ 1 4 I s ! 11 

FOR N=1 TO 400 STEP 20:INPUT INWORD* 

IF N > 3 9 9 THEN WORD*<401,520)=" ":GOTO 

10200 

IF INWORD*=”*" THEN WORD*(N,520>=" ":G 

OTO 10150 

WORD*(N,N+19)=INWORD* 

NEXT N 

? "TYPE IN CHAPTER # OR LIST # ETC. . . '* 
INPUT INWORD*:WORD*(401,420)=INWORD* 
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10200 

10202 

10203 


10204 

10205 

10206 
10207 

10209 

10210 
10220 
10300 
10500 


10520 

10525 

10530 

10540 


1 1005 


1 1020 
11025 
1 1030 
1 1035 
1 1040 
1 1045 


11067 

11068 
1 1070 


FDR N= 1 TO 420 STEP 20:PRINT WORD*(N„N 
+ 19) :NEXT N 

IF ZZ*="D" THEN SDSUB 10500:TRAP 40000 
•.OPEN #2,8,0, DK*: GOTO 10209 
? "POSITION THE TAPE AND TAKE NOTE OF 
€4 SPACES!THE COUNTER NUMBER.”:? :? ”P 
RESS THE PLAY AND RECORD BUTTONS.” 

? : ? "WHEN THE BUZZER SOUNDS, PRESS Dla 

nnai" 

N=1 

TRAP 10207:LPRINT 
OPEN #2,8,0, ”C : " 

N=1:FOR X = 1 TO 4 

PRINT #2;WORD*(N,N+l19):N=N+120 
NEXT X:CLOSE #2 
GOTO 13000 

PRINT "YOU MUST NOW ENTER THE FILENAME 
£7 SPACES!(WITHOUT ’D:’) OF THE FILE T 
O " ; 

IF ANS$=”R” THEN PRINT ”LOAD":GOTO 105 
30 

PRINT "CREATE" 

TRAP 10500:INPUT DK*:DK*(4)=DK*:DK*(1, 
3 ) = " D 1 : " 

RETURN 

IF ZZ*=”D" THEN GOSUB 10500:N=1:TRAP 4 
0000:OPEN #2,4,0,DK*:GOTO 11025 
? "TO LOAD WORDS THAT ARE STORED ON TA 
PE BE SURE TO POSITION THE TAPE AT THE 
£3 SPACES!CORRECT COUNTER # YOU NEED." 
? "WHEN BUZZER SOUNDS, PRESS FI WITH-IT AN 
D WAIT FOR THE WORDS TO BE LOADED INT 
0 THE COMPUTER..." 

N=1:OPEN #2,4,0,"C:" 

FOR *=1 TO 4 

TRAP 11040:INPUT #2,INWORD* 

WORD*(N„N+l19)=INWORD*:N=N+120 
NEXT X 
CLOSE #2 

FOR N=1 TO 400 STEP 20:PRINT INT(N/20) 
+1;" ";WORD*(N,N+19) 

NEXT N 

PRINT "£9 SPACES!";WORD*(401,420) 


ANS*=”N" THEN GOTO 10000 
GOTO 13019 
END 
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12000 

12005 

12010 

12020 

12030 

12040 

12050 

13000 


13005 

13010 

13011 


13012 


13013 


13014 

13015 

13016 

13017 

13018 


13019 

13020 


13025 

13030 

13050 

13060 

13070 


FOR N=1 TO 1 00:SOUND 0,20,4,10:NEXT N: 
SOUND 0,0,0,0 

GRAPHICS 18:7 #6; " [TH TBH 1 ] J-SL ";CHR$<CHA 

POSITION 0,1:7 #6;"wrong...TRY AGAIN" 
POSITION 4,3:7 #6;"THE WORD IS " 
POSITION 0,4:7 #6;A$ 

POSITION 6,5:7 #6;"READY???" 

L=0:FOR N=1 TO 400:NEXT N:RETURN 
MEL$= " 

EBB" : FOR N=1 TO 35:PRINT WEL* < N,N) ;: NE 
XT N:NUM=1 

TRAP 13010:7 :? "HIT THE Eagmg KEY WH 
EN READY”;:INPUT A:IF A=0 THEN END 
PRINT "{CLEAR!{BELLI":TRAP OFF 
7 :? :? :? :? "DO YOU WANT TO USE THE 

LIST OF WORDS ALREADY IN THE COMPUTER 
OR DO YOU WANTTO LOAD IN A NEW LIST" 

7 :? :? "TYPE IN C FOR A NEW LIST OR H 
IT Eamnrro USE THE OLD LIST.":? :? : 
7 "TYPE IN tl TO END" 

7 :7 :? "OF COURSE, IF THIS IS THE FIR 
ST TIME THROUGH THE PROGRAM DURING TH 
ISC7 SPACES>SESSION YOU MUST HIT CM!" 
INPUT ANS$:IF ANS$="N" THEN GOTO 10000 
IF ANS$="E" THEN GOTO 4000 
IF TIME=0 THEN 7 "C3 BELLT":GOTO 13018 

GOTO 13019 

7 :? :? "THIS IS YOUR IJ I THROU 

GH THE{3 SPACESJPROGRAM. YOU MUST LOAD 
IN OR CREATE A NEW LIST NOW!":GOTO 13 
01 1 

PRINT " {CLEAR3- " 

? :? :? "IF YOU WANT TO PRACTICE FOR A 
CERTAIN NUMBER OF TIMES TYPE IN E AND 
HITC5 SPACES > HSHHC- " 

? :? :? "IF YOU WANT TO PRACTICE UNTIL 
YOU GET TIRED JUST HIT 1:1 =*111:1: ■ " 

7 :? :? "IF YOU WANT TO QUIT, TYPE IN 
E. " 

INPUT ANS*:IF ANS*= ,, C" THEN GOTO 55 
IF ANS$="E" THEN GOTO 4000 
RIGHT=10000:GOTO 57 
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Eleme ntary Numbers 

■■■■■■■ Stephen Levy 


This educational program for preschoolers requires children to use only the 
three console keys to answer questions. 

When you bought your computer, one reason you used to justify 
the purchase was that the kids could use it for educational 
purposes. Well, now the computer is home, but the three-year-old 
rarely uses it. "Too young," you tell yourself, "maybe in a few 
years." 

Children as young as two can and are using computers every 
day. But the lack of good software is still the major reason pre¬ 
schoolers don't make greater use of computers. To be used 
successfully with preschoolers, educational software must be 
truly educational, must have a difficulty level and subject matter 
appropriate for the age group, and must hold the child's attention 
and be fairly simple to use. 

For the Very Young 

Using computers to teach young children can be fun and chal¬ 
lenging. The Atari's design makes it extremely easy for young 
children to use. Although the Atari offers numerous ways to 
input answers, this program, once LOADed, requires only the 
use of the three function keys to input responses. The subject 
matter, elementary numbers, is basic and is intended to teach the 
numbers from one to ten and the addition of single digits. 

There are four options for the child to pick from. When the 
menu appears the youngster must use the function keys to select 
the part of the program to use. Pressing the SELECT key moves a 
small marker from one option to the next. When the child is satis¬ 
fied with his or her selection, he or she presses the START key. It is 
important that the child hold down the key until the computer 
responds (this is true throughout the program). 

The Options 

The four options are Adding, Counting, Next Number, and Select 
a Number. 

Adding presents a simple addition problem and an equiva¬ 
lent number of symbols for each number in the problem. By 
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counting the symbols, the child can decide on the answer. The 
child then presses the SELECT key until his or her answer (with 
the appropriate number of symbols) appears on the screen. The 
word for each number in the problem also appears. 


5 ***** FIVE 
+ 4 ####FOUR 

9 &&&&&&&&& 


To find out if an answer is correct, the child holds down the 
option key. If the answer is correct, the child hears a song and then 
is given the option of another problem. 

Counting involves very little participation on the part of the 
child and is intended for the child who has had little experience 
with the computer and is perhaps too young for the other options. 

Next Number asks the child to find the next consecutive 
number. The computer selects a number and then prints the digit, 
the word for the number and the appropriate number of symbols. 
The child must answer with the next consecutive number in the 
same manner. 

In the final option, Select a Number, the child must match the 
word for a number with the correct number. 

Using the Joysticks 

It is hoped that this program will give parents and others new 
ideas about how to design programs for very young children. 

This program uses the console keys. Another method for 
easy inputs is the joystick; A1 Baker has two articles that explore 
this topic in COMPUTEI's First Book of Atari. Consider also the 
possibility of multiple-choice questions that format the answers on 
the screen in such a way that a child could simply push the stick 
in the direction of his or her response. 

The computer is your tool; why not make it a learning tool for 
your children? 

Elementary Numbers 

100 REM ELEMENTARY NUMBERS 
110 REM 

120 REM COMPUTE! PUBLICATIONS 

130 DIM CLEAR*(1),NUMBER*<51>,C*(1),NUM*<6) 
140 NUMBER*=“ZERO ONE TWO THREEFOUR FIVE S 
IX SEVENEIBHTNINE ":CLEAR*=CHR*(125):C* 
=CHR*(94) 
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150 GRAPHICS 18:SETCOLOR 4,8,3 

160 POSITION 5,3:PRINT #6ELEMENTARY":POSIT 
ION 5,7:PRINT #6;" NUMBERSGOSUB 360 
170 AA=4 

180 PRINT #6;CLEAR*:POSITION 0,0:PRINT #6;"P 
RESS start TO BEGIN":POSITION 0,1:PRINT 
#6; “PRESS select TO PICK'* 

190 POSITION 3,4:PRINT #6;"adding":POSITION 
3,6:PRINT #6;"counting":POSITION 3,8:PRI 
NT #6;"next number" 

200 POSITION 3,10:PR INT #6;"select a number- 
210 IF PEEK(53279)=5 THEN AA=AA+2 
220 IF AA=12 THEN AA=4 

230 IF AA=4 THEN POSITION 0,10:PRINT #6;" 

240 IF PEEK(53279)=6 THEN GOTO 260 
250 POSITION 0,AA:PR I NT #6; ">>":POSITI ON 0,A 
A—2:PRINT #6;" ":GOSUB 360:GOTO 210 

260 IF AA=4 THEN 500 

270 IF AA=6 THEN 960 

280 IF AA=8 THEN 1260 

290 IF AA=10 THEN 1580 

300 FOR AA=1 TO NUM1:POSITION AA+5,4:PRINT # 
6;C*:NEXT AA 

310 POSITION AA+6,4:PRINT #6;NUMBER*(NUM1+1+ 
(NUM1*4),NUM1+5+(NUM1*4)):RETURN 
320 FOR AA=1 TO NUM2:POSITION AA+5,6:PRINT # 
6;C*:NEXT AA 

330 POSITION AA+6,6:PRINT #6;NUMBER*(NUM2+1+ 
(NUM2*4),NUM2+5+(NUM2*4)):RETURN 
340 NUM1 = INT(RND(0)* 10) :RETURN 
350 NUM2=INT(RND(0)* 10) :RETURN 
360 FOR WAIT=1 TO 500:NEXT WAIT:RETURN 
370 IF AA=10 THEN 1370 
380 GOTO 400 
390 IF AA=19 THEN 520 

400 IF AA<11 THEN POSITION 5+AA,8:PRINT #6;C 
* :POSITION 3,8:PRINT #6;AA 
410 SOUND 0,75,10,8 

420 IF AA=10 THEN POSITION 2,B:PRINT #6;”10 

430 IF AA >10 THEN POSITION 5+(AA-10) ,9:PRI NT 
#6;C*:POSITION 2,8:PRINT #6;AA 
440 SOUND 0,0,0,0 
450 RETURN 

460 NUM*=NUMBER*(COUNT+1+(C0UNT*4>,C0UNT+5+( 
COUNT * 4) ) :RETURN 

470 CHAR=INT(RND(0)*8)+36:GOTO 490 
480 CHAR=INT(RND(0)*5)+60 
490 C*=CHR*(CHAR):RETURN 
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500 REM ADDING 

510 GOSUB 340:GOSUB 350 

520 GRAPHICS 18:SETC0L0R 4,14,12:SETCOLOR 0, 


530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 


690 

700 


710 

720 

730 

740 

750 

760 

770 

780 


POSITION 3,4:PRINT #6;NUM1 

IF NUM1=0 THEN POSITION 5,4:PRINT #6;"EE 

HE": GOTO 560 

GOSUB 470:GOSUB 300 

POSITION 3,6:PR INT #6;NUM2 

IF NUM2 = 0 THEN POSITION 5,6:PRINT #6; *' FTZ 

CHE" : GOTO 590 

GOSUB 480:GOSUB 320 

POSITION 2,7: PR I NT #6 ; ” HHT* : POS I T I ON 1,5 
: PRINT #6; ,, + " 

AA=0:POSITION 3,8:PRINT #6;"0" 

GOSUB 470 

POSITION 0,0:PRINT #6;"press select to 
{12 SPACES}change answer":GOSUB 360 
IF PEEK(53279)=5 THEN AA=AA+1:GOSUB 390 

position 0,0: pr i nt »6: * t ga aaEMggaiaggin i ae 


“:GOSUB 360 
IF PEEK(53279)=5 THEN AA=AA+1:GOSUB 390 
IF PEEK(53279)=3 THEN 680 
GOTO 620 

IF AA=NUM1+NUM2 THEN GOSUB 750 

IF AA<>NUM1+NUM2 THEN GOSUB 770:GOTO 520 

POSITION 0,0: PR I NT #6; “ 

{4 SPACES} Mr l . T .Hi T J S SPACES}" : GO 

SUB 360:GOSUB 360 
IF PEEK(53279)=5 THEN 500 
IF PEEK(53279)=6 THEN 150 

POSITION 0,0: PR I NT #6;"press E83B3E for m 
enu{17 SPACES}":GOSUB 360 
GOSUB 360:GOTO 700 
REM CORRECT ANSWER 

POSITION 2,11:PRI NT #6; "correct":GOSUB 1 

920:RETURN 

REM WRONG ANSWER 

POSITION 2,11:PRINT #6;"sorry, try again 


790 

800 

810 

820 

830 

840 

850 

860 

870 


FOR S=1 TO 2 

SOUND 0,120,2,8 

GOSUB 950 

SOUND 0,29,10,12 

FOR WAIT=1 TO 40:NEXT WAIT 

GOSUB 940:NEXT S 

FOR S=1 TO 3 

SOUND 0,180,2,8 

GOSUB 950:GOSUB 940 
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880 NEXT S 

890 FOR Sl=l TO 2 

900 SOUND 0,29,10,11 

910 FOR WAIT =1 TO 40:NEXT WAIT 

920 GOSUB 94 0:NE X T SI 

930 RETURN 

940 SOUND 0,0,0,0:FOR WAIT=1 TO 40:NEXT WAIT 
:RETURN 

950 FOR WAIT = 1 TO 80:NEXT WAIT:RETURN 
960 REM COUNTING 
970 TIMES=1 
980 GOSUB 2130 

990 SETCOLOR 4,8,5:SETCOLOR 0,9,14 
1000 POKE 87,2:POSITION 5,2:PRINT #6; M C0UNTI 
NG” 

1010 FOR C=1 TO 15:SETCOLOR 4,C,8:F0R WAIT=1 
TO 25:SOUND 0,C* 15, 10,8:NEXT WAIT 
1020 SOUND 0,0,0,0:NE X T C 

1030 SETCOLOR 4,8,5:SETCOLOR 0,9,14:SETCOLOR 
1,12,10 

1040 POKE 87,2:PR INT #6;CLEAR*:Q=1 
1050 COLOR 2:POKE 87,5:F0R Cl=6 TO 8:PL0T 0, 
Cl:DRAWTO 79,C1:NEXT Cl 
1060 FOR COUNT =1 TO 9 
1070 REM 
1080 GOSUB 460 

1090 POKE 87,1:POSITION 0,3:PRINT #6;NUM*:P0 
SITION 15,3:PRINT #6;NUM*:POSITI ON 9,3: 
PRINT #6;COUNT 

1100 POKE 87,2:FOR Cl=5 TO 13 STEP 4:P0SITI0 
N C1,0:PRINT #6;COUNT:NEXT Cl 
1110 POKE 87,2:POSITION 2,2:PRINT #6;NUM*:P0 
SITION 9,1:PR I NT #6;COUNT:POSITION 13,2 
:PRINT #6;NUM* 

1120 SETCOLOR 2,3,7 

1130 COLOR 3 

1140 SOUND 0,120,10,8 

1150 POKE 87,5:PLOT Q + 4,15:DRAWTO Q+4,11:DRA 
WTO Q,11:POSITION Q,15:POKE 765,3:XI0 1 
8, #6,0,0, ” S : " 

1160 SOUND 0,0,0,0 
1170 Q = Q + B 
1180 GOSUB 360 
1190 COLOR 3 

1200 POKE 87,5:PLOT Q+4,15:DRAWTO Q+4,11:DRA 
WTO Q,11:POSITION Q,15:P0KE 765,3:XI0 1 

8,#6,0,0,”S:" 

1210 NEXT COUNT 
1220 TIMES=TIMES+1 
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1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 


1330 

1340 

1350 

1360 

1370 

1380 


1390 

1400 

1410 

14?0 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 


1540 

1550 

1560 

1570 

1580 

1590 


IF TIMES=3 THEN 150 

GOTO 980 

END 

REM NEXT NUMBER 
GOSUB 2130 

SETCOLOR 4,5,10:SETCOLOR 0,6,3:SETCOLOR 
1 , 1 1,6:SETCOLOR 2,3,3 
POKE 87,1:POSITION 5,4:PRINT #6;"NEXT N 
UMBER" 

FOR C1=2 TO 3 
COLOR Cl:C2 = C1*4 

POKE 87,5:PLOT 79,C2+2:DRAWTO 79,C2:DRA 
WTO 0,C2:POSITION 0,C2+2:POKE 765,C1:XI 
O 18,#6,0,0,"S:" 

NEXT Cl 

GOSUB 340:IF NUM1=9 OR NUM1=0 THEN 1340 
GOSUB 360:GOSUB 360 
GOSUB 480 
GRAPHICS 17 

POSITION 2,13:PRINT #6;"PRESS THE selec 
t " :POSITION 2,15:PR INT #6;"KEY UNTIL YO 
U“ 


POSITION 2,17:PRINT #6;"FIND THE":POSIT 
ION 2, 19:PRINT #6; " rrreT 4Jrui=M d T " 

POSITION 3,4:PRINT #6;NUM1:GOSUB 300 
AA = 0 


IF PEEK(53279)=5 THEN AA=AA+1:GOSUB 370 
IF PEEK(53279)=3 THEN 1500 
POSITION 0,0: PRINT «6; " 

GOSUB 470 

IF PEEK(53279)=5 THEN AA=AA+1:GOSUB 370 
POSITION 0,0:PR I NT #6; "press select to 
<12 SPACESJchange answerGOSUB 360 
IF PEEK(53279)=3 THEN 1500 
GOTO 1420 

IF AA=NUM1+1 THEN GOSUB 750 
IF AAONUM1 + 1 THEN GOSUB 770:GOTO 1370 
IF AAONUM1 + 1 THEN 1370 

POSITION 0,0 : PR I NT #6; " f3gj ^ B30 B«E33 

<4 spaces> »= i . T .n rt --r a raaaaErts spaces>":G 
OSUB 360:GOSUB 360 
IF PEEK(53279)=5 THEN 1340 
IF PEEK(53279)=6 THEN 150 

POSITION 0,0: PRINT #6;"press for 

menu <17 SPACES)GOSUB 360 

GOSUB 360:GOTO 1530 

REM SELECT A NUMBER 

COUNT=INT(RND(0)*9):GOSUB 460 
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1600 

1610 


GRAPHICS IB:SETCOLOR 4,5,9:SETCOLOR 0,7 
, 5 

POSITION 1,0:PRINT #6 ; " ISITTK ^ = ffla wor 

d” : POSITION 2,1:PRINT #6 ; " EEMmBma numb 


1620 POSITION 0,B:PR I NT #6;"PRESS start TO B 
E GI N " 

1630 AA=1 
1640 GOSUB 360 

1650 IF PEEK<53279)<>6 THEN 1650 
1660 GRAPHICS 18:SETC0L0R 0,1,13:SETCOLOR 4, 
5,9 

1670 POSITION 8,7:PRINT #6;NUM* 

1 680 POSITION 2,3: PR I NT *6; " ETJ IJJWi.Hit- I Mria 
" : POSITION 1,4 : PR I NT # 6; " Ej g EEEIIES fliTTB 


1690 

1700 

1710 

1720 


POSITION 4,5:PR I NT #6; 
GOSUB 360 

POSITION 1,10:PR INT #6 


IF PEEK<53279)=5 THEN AA=AA+2:SOUND 0,7 
5, 10, B: FOR W=1 TO 10:NEXT W-.SOUND 0,0,0 


1730 IF PEEK<53279)=3 THEN 1800 
1740 IF AA >19 THEN AA=1:POSITION 19,9:PRINT 
# 6 ;" ” 

1750 IF AA=1 THEN 1770 

1760 POSITION AA—2,9:PRINT #6;” “ 

1770 POSITION AA,9:PR INT #6;C* 

1780 GOSUB 360 

1790 GOTO 1720 

1800 ANS= < (Afl+1)/2)—1 

1810 IF ANS=COUNT THEN GOSUB 750 

1820 IF ANSOCOUNT THEN GOSUB 770:GOTO 1660 

1830 GOSUB 360 

1840 GRAPHICS 1B:SETC0L0R 4,8,12:SETCOLOR 0, 

8,2 

1850 POSITION 1,3:PR I NT #6; “VERY GOOD":POSIT 
ION 2,5:PR INT #6;NUM*; n IS COUNT 
1860 GOSUB 360:GOSUB 360 

1870 POSITION 2,5 : PR I NT #6; " OPT I ONKSHMagHE" 
1880 POSITION 1,3: PR I NT #6;"SELECT I 
f=I-:C6 SPACES! j|S C7 SPACES)" 

1890 IF PEEK<53279)=3 THEN 150 
1900 IF PEEK<53279)=5 THEN 1590 
1910 GOTO 1890 
1920 REM INTRO MUSIC 
1930 S3=2 

1940 MUSIC=INT<RND<0)*2)+1 
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1950 RESTORE 5300+<MUSIC* 100) 

1960 READ SI,TIME 

1970 IF Sl=-1 THEN SETCOLOR 4,B,3:RETURN 
1980 SOUND 0,Sl+3,10,7:SOUND 1,S1,10,11 
1990 SETCOLOR 4,S3,8 

2000 FOR WAIT=1 TO TIME*7:NEXT WAIT 
2010 SOUND 0,0,0,0:SOUND 1,0,0,0:FOR WAIT=1 
TO 3:NEXT WAIT 

2020 S3=S3+2:IF S3>15 THEN S3=l 
2030 GOTO 1960 

2130 REM MODE 2 3 ROWS 

2140 REM MODE 1 2 ROWS 

2150 REM MODE 5 32 ROWS 
2160 GRAPHICS 5 

2170 BEG IN = PEEK(560)+PEEK(561) *256 + 4 
2180 POKE BEGIN-1,71 

2190 POKE BEGIN + 2,7s POKE BEGIN + 3,7 
2200 POKE BEGIN+4,6:POKE BEGIN+5,6 
2210 POKE BEGIN+38,65:POKE BEGIN+39,PEEK(560 
):POKE BEGIN+40,PEEK(561) 

2220 RETURN 

5400 DATA 122,2,122,2,82,2,82,2,73,2,73,2,82 
,4,92,2 

5410 DATA 92,2,97,2,97,2,109,2,109,2,122,4 
5420 DATA 82,2,82,2,92,2,92,2,97,2,97,2,109, 
4 

5430 DATA 82,2,82,2,92,2,92,2,97,2,97,2,109, 
4 

5440 DATA 122,2,122,2,82,2,82,2,73,2,73,2,82 
, 4 

5450 DATA 92,2,92,2,97,2,97,2,109,2,109,2,12 

2 . 4 , - 1,-1 

5500 DATA 122,2,109,2,97,2,122,2,122,2,109,2 
,97,2,122,2,97,2,92,2,82,4,97,2,92,2,82 
, 4 

5510 DATA 82,1,73,1,82,1,92,1,97,2,122,2,82, 
1,73,1,82,1,92,1 

5520 DATA 97,2,122,2,122,2,82,2,122,4,122,2, 

82.2.122.4, -1,-1 
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Stand ings 

■■■■■■■ Dan and Philip Seyer 


" Standings " is a program for sports fans who would like to create their 
own standings statistics. It was written by a 12-year-old and his father. 

This program will enable you to create professional-looking team 
standings statistics. We developed the program with baseball in 
mind, but you can use it for any sport. You might even adapt it for 
other purposes. (For example, a manager or supervisor might use 
it to keep track of employee performance.) 

Input in Graphics Mode 2 + 16 

Once you type in the program and get it working, you'll see a 
colorful menu in Graphics mode 2. After you type A, you will be 
prompted to enter the date, the name of the sport, the number of 
teams, the team names, and win-loss records. A special routine at 
lines 420 to 499 allows you to enter this data in Graphics mode 2. 
Normally, you can't enter data in this mode without using a text 
window and an INPUT statement. 

Output Data 

After you enter the data mentioned above, the program does the 
rest. It calculates each team's percentage and GB statistic. (GB 
stands for games behind the leader.) Then the program sorts the 
teams into proper order according to winning percentages. 

If you hold down the OPTION key when you select choice B, 
the program will play some random sounds as it prints the sport 
caption at the top of the screen, if you get tired of hearing the 
sounds, just press B without holding down the OPTION key. 
Then the program will skip over the random sound-generation 
routine. 

Updating Statistics 

Statistics are easily updated. To do this, select option B from the 
main menu. You can then change a team's win-loss record by 
pressing W to add a win or L to add a loss. The team's percentage 
changes instantly when you change the wins or losses. You can 
also change the spelling of a team's name, delete an entire team 
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record, or add a new team. The program prompts you step by 
step for the appropriate entries and then modifies or deletes the 
appropriate DATA statements. The program will automatically re¬ 
sort the teams into proper order after you have updated all the 
win-loss statistics. 


Resaving the Program 

After updating the statistics, be sure to end the program by 
selecting the END option from the main menu. The program will 
then ask you whether you have a program recorder or disk drive. 
You can answer by typing P for program recorder or D for disk 
drive. 

Program recorder. If you have a program recorder, you will be 
asked to position the tape for saving the program. When you 
press RETURN, your program will be saved. 

Disk drive. If you have a disk drive, the program and any new 
data will automatically be resaved to disk when you type D and 
press RETURN. 

Printout 

To get a printout of your favorite league's standings, just type C 
for your menu choice. You will then be prompted to turn on your 
printer. (You may also want to adjust your paper at this time.) 
Then press RETURN to start the printing. 

STATS ENTERED 08-28-83 
HOMETOWN LEAGUE STANDINGS 


TEAMS 

TIGERS 
BEARS 
PADRES 
A' S 
RAMS 
LI DNS 
SENATORS 
WHITE SOX 


1.000 
.529 


10 .474 9 

11 .421 10 

10 .412 10 

11 .353 11 

15 .211 14 


Sort Routine 

The teams will be listed in order by percentage from highest to 
lowest. A sort routine at line 900 to 972 does this for you automati¬ 
cally. Also notice the GB statistics, games behind the leader. The 
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GB statistic is the number of times, a team must beat the first place 
team to move into a tie for first place. 

Self-Modifying Code 

An interesting feature of the program is that it is self-modifying. 
When you enter information, the program creates DATA state¬ 
ments for you and saves the information in those DATA state¬ 
ments. (See lines 400 to 420.) This way, you don't need a separate 
data file since the data is saved along with your program. 

The program as printed here contains the data for the eight 
teams listed in the sample printout. The sample data are included 
only to get you started. It is suggested that you practice with this 
data and experiment with the program. Then delete each of the 
eight teams and enter your own information. 

Standings 

0 ? "INITIALIZING." 

1 READ Q1,Q2,Q3,Q4,Q5,Q6,Q7,QB,Q9,Q10:SAV=Q1 

2 READ Q 1 2,Q13,Q 1 4,Q 1 5,Q17,Q 1 8 ,Q20,Q21,Q22,Q 
24,Q26,Q27,Q30,Q33,Q34,Q35,Q40,Q64,Q65,Q6B 
, Q70 

3 READ Q72,Q74,Q82 ,Q89,Q95,Q97,Q100,Q125,Q12 
6,Q128,Q155,Q165,Q190,Q246,Q255,Q260,Q261, 
Q286,Q289,Q300,Q304,Q306 

4 READ Q400,Q425,Q430,Q500,Q507,Q511,Q533,Q5 
59,Q578,Q630,Q694,Q705,Q752,Q760,Q764,Q765 
,Q770,Q800,Q842,Q871,Q895 

5 READ Q898,Q900,Q975:GOTO 450 

6 DATA 1,2,3,4,5,6,7,8,9,10,12,13,14,15,17,1 
8,20,21,22,24,26,27,30,33,34,35,40,64,65,6 
8,70 

7 DATA 72,74,82,89,95,97,100,125,126,128,155 
,165,190,246,255,260,261,286,289,300,304,3 
06 

8 DATA 400,425,430,500,507,511,533,559,578,6 
30,694,705,752,760,764,765,770,800,842,871 
,895,898,900,975 

13 RESTORE Q300 : READ L , TEMP* : RETURN : REM WTi 


14 TEMPIt=“114 SPACES!":RETURN 

15 GOSUB Q22: POSITION X,Y:IF Y*="7." THEN ? 
■" : GOTO Q 1 7 : REM 

16 ? # 6 ; " 63 " 

17 POSITION X,Y:GOSUB Q21:GET #Q1,A:RETURN 

18 T E M P * = "C 1 5 SPACES}RETURN 

19 ? "C38 SPACES}RETURN 
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21 POKE <3764, Q255: RETURN : REM 


22 CLOSE #Q1:OPEN #Q1,04,Q18,"K:":POKE Q752, 
Q 1 : RETURN : REM a a HjESM33mg flO 

24 II=INT(RND(Q0)*024):FOR A=Q12 TO Q0 STEP 
— Q1:SOUND Q0, I I,Q2,fl:NEXT A:RETURN :REM C 


25 


IF START=Q0 THEN RETURN 


: REM 


26 POSITION X, Y: IF Y$="7." THEN ? “ ” 

27 IF Y$< THEN ? #6;” " 

28 X=X—1:TRAP 31:TEMP*=TEMP*(01,START-Q1):ST 
ART=START—Q1:RETURN 

29 GOSUB Q22:GET #1,A:RETURN 

31 START=Q0:X=XX:GOSUB Q18:RETURN 

32 LL=ORDER(OL):RETURN 

33 FOR D = YY + Q6 TO YY + Q13:POSITI ON Ql,D:GOSUB 

19: NEXT D:POKE Q752 , Q 1 : RETURN : REM Wsfil;: 


35 POKE 559,0:FOR LNO = ST ART TO LL STEP STEP: 

? CHR* < 125) : REM + 

36 RESTORE LNO:READ Y*:IF Y$="tESC} u THEN RE 
TURN 

37 ? " CDOWN3 ” ; LNO: ? :? :? " CONT":POSITION <30 

,Q0:POKE 0842,Q13:STOP 

38 POKE 0842,012:? CHR*(0125):NEXT LNO:POKE 
559,34:RETURN 

39 GOSUB Q289:GOTO Q533 

41 TEMPlt=”Y" : GOSUB O705:GOSUB 32:REM 


42 RESTORE LL;READ LNO,TEMP*:GOSUB 033:P0SIT 
ION 06,YY+Q8 

43 ? "TYPE Q TO DELETE ";TEMP*:POSITI ON 06,Y 
Y + Q 10:? "HIT pi =i it 11:11 TO GO BACK TO MENU " : G 
OSUB 022:GET #01,A 

44 IF A< >89 THEN RETURN 

45 GOSUB Q260:TEAMNO=TEAMNO-Q1:LNO=Q304:TEMP 
1*=STR*(TEAMNO):GOSUB Q898:GOSUB Q400 

46 START=LL:STEP=Q2:GOSUB Q35:IF TEAMNO=Q0 T 
HEN GOTO Q507 

47 GOSUB 0260:GOSUB 0975:GOSUB Q900:GOTO Q50 
7 

52 GRAPHICS Q18:GOSUB Q190:GOSUB Q24:P0SITI0 
N Q3, Q3: ? #6; "turn on printer " : REM tilUiil-ll. 


53 ? #06:? #06:? #06;"{3 SPACES!HIT E TO PRI 
NT":GOSUB Q22:GOSUB Q97:? #06 

54 ? #06; "HIT l:l=*i»J:i; FOR MENU":GOSUB Q22:GOT 
O 755 
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55 60SUB 097:RESTORE Q895:READ LNO,TEMP*:TRA 
P 750:LPRI NT :LINE*(010,024)="STATS ENTER 
ED":X=LEN(TEMP*) 

56 LINE*(Q26,LEN(TEMP*)+Q26)=TEMP*:LPRINT LI 
NE*:GOSUB Q97:RESTORE 300:READ L,TEMP*:X= 
(40-(LEN(TEMP*)+10))/2 

57 LINE*(X,X+LEN(TEMP*))=TEMP*:LINE*(X+LEN(T 
EMP*),40)=” STANDINGS" 

58 LPRINT :LPRINT :LPRI NT :LPRI NT LINE*:REST 
□RE Q871:READ L,L 

59 RESTORE L:READ L,TEMP*,W,L:LPRINT :LPRINT 

"C3 SPACES JTEAMSt 1 1 SPACES 3- W 13 SPACESJL 
C 3 SPACES}PCT. GB":Y = Q0:GOSUB Q260:LPRIN 
T 

60 GOSUB Q97:FOR I=Q1 TO TEAMNO:Y*=")":RESTO 
RE ORDER(I):READ LNO,TEMP 1 *,LW,LL:LINE*(O 
1,LEN(STR* ( I) ) )= STR*(I) 

61 LINE*(04,018)=TEMP1*:LINE*(Q20,Q20+LEN(ST 
R*(LW)))=STR*(LW):LINE*(Q24,024+(LEN(STR* 
(LL))))=STR*(LL) 

62 GOSUB Q261:LINE*(Q27 ,Q33)=TEMP*(Q1,Q5):LI 
NE*(34,Q40)=TEMP1*:LPRINT LINE*:GOSUB Q97 
:NEXT I:RETURN 

70 GOSUB Q260:IF TEAMNO>=030 THEN GOTO 0760: 

71 GRAPHICS Q18:GOSUB 0190:POSITI ON 01,02:? 

:LNO=Q306 

72 RESTORE LNO:READ TEMP*:IF TEMP*<>STR*(LNO 
) THEN GOSUB Q898:G0SUB 0400:ORDER(TEAMNO 
+Q1)=LNO:GOTO 74 

73 LN0=LN0+Q2:GOTO 072 

74 TEAMN0=TEAMN0+Q1:TEMP1*=STR*(TEAMNO):LNO= 
0304:GOSUB O400:GOSUB O900:GOTO 0507 

95 FOR 1=1 TO 500:NEXT I:RETURN 

97 LINE*="C38 SPACES}":RETURN 

99 FOR D=Q6 TO Q22:POSITION Ql,D:GOSUB 19:NE 
XT D:RETURN 

100 GRAPHICS Q18:GOSUB Q190:GOSUB Q22:P0SITI 

□n 00,04:? #06:" EEliMaiiiaBiiaaaBaaagaEm 
hs ch m 


105 GOSUB 095:GOTO Q507:REM 



78 



Applications and Education 


161 ? "5 " 

165 POKE Q764,Q255:GOSUB Q22:GET #Q1,A:IF A> 
Q64 OR A< Q72 THEN CLOSE #Q1:RETURN 
170 GOTO Q165 

190 POSITION Q5 , Q0 : ? # 6 ; " g£jA ED i OHS " : GOSUB Q2 
4:RETURN 

199 REM 

200 ? :POKE Q752,Q1:GOSUB Q13:L=LEN<TEMP*>:L 
L=Q40—(STNO+L):LL=LL/Q2:POSITION LL,Q1:F 
OR I=Q1 TO L+STNO 

205 ? "{N> " ; : NEXT I:? " -CDOWNJ {LEFT} { B > " : POSI 

TION LL,Q2:? "{VJPOSIT ION LL,Q3:FOR 1 = 
Q1 TO L + STNO:? " CMJ"; :NEXT I:RETURN 
210 ? "■" ; :FOR J = Q1 TO LEN(TEMP*) :? TEMP*<J, 

J);:GOSUB Q24:NEXT J:RETURN 
215 POSITION LL+Q1,Q2:FOR J=Q1 TO LENtTEMP*) 
:? TEMP*(J,J);:GOSUB Q24:NEXT J:RETURN 
255 TEMP1*=TEMP*(Q1,START):RETURN 
260 RESTORE Q304:READ LNO,TEAMNO:RETURN :REM 


261 

262 

263 

264 

265 

266 

267 

268 


IF LW=Q0 AND LL=Q0 THEN PCT1=Q0:GOTO 263 

GOSUB Q14:GOSUB Q18:PCT1=(LW/(LW+LL)):PC 
T1=(PCT1+5E—04) 

TEMP*<Q1,Q5)=STR*(PCT1):IF LW=Q0 THEN TE 
M P * =" .000" 

IF TEMP*<Q1,Q1)="0" THEN TEMP*(Q1,Q1)=" 
IF TEMP*(Q3,Q3)=" “ THEN TEMP*(Q3,Q3)="0 

IF TEMP*(Q4,Q4)=" M THEN TEMP*(Q4,Q4)=”0 
IF TEMP*(Q5,Q5)=" " THEN TEMP*(Q5,Q5)=”0 

IF TEMP* (Q2, D2) =" " THEN TEMP* ((22 , Q2) = " . 


269 GB=<((W-L)/Q2)-(LW-LL)/Q2):IF L=Q0 THEN 
GB = W/Q2— <LW-LL) /Q2 

270 IF GB< =Q0 THEN TEMP1*="-":GOTO Q286 

271 TEMP1* = STR*(GB) :FOR J = Q1 TO LEN(STR* < GB) 
):IF TEMPI*(J,J)<>"." THEN NEXT J:GOTO Q 
286 

272 TEMPI*(J,J)=" TEMPI*(Q3,Q6)=" 1/2" 

273 IF TEMPI*<Q1,Q1) ="0" THEN TEMP 1 *(Q1,Q1) = 


286 IF Y*=")" THEN RETURN 

287 POSITION Q26,Y+Q5:? TEMP*<Q1,Q5):IF Y*<> 
“<" THEN POSITION Q33,Y+Q5:? TEMPI* 

288 RETURN 
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2B9 

290 


292 

293 

298 

299 

300 

302 

303 

304 

305 

306 
308 
310 
314 
316 
318 
320 
322 

399 

400 


410 

415 

420 

425 

430 

435 

440 

441 

442 

443 

444 


445 


446 

447 

80 


POSITION Q3,Q8:? #6; n {3 SPACES!":RETURN 
GOSUB 0289:POSITION Q0,010:7 #6;" 

C3 SPACES! 4 SPACES! " : GOTO 

0533 

□" :IF Y = Q8 THEN GOSUB 0770:GOTO 605 
GOSUB Q765:GOTO 610 

RESTORE ORDER(OL) :READ LNO,TEMP 1 *,LW,LL: 
RETURN 
REM 


DATA 300,D 
DATA 
REM 

DATA 304,8,4,312 

DATA 306,LIONSI9 SPACES!,7,10 
DATA 308, A ’ S { 1 1 SPACES!,9, 10 
DATA 3 10, nrarra t9 SPACES!,9,8 
DATA 3 14, RAMS 110 SPACES!,8, 11 
DATA 316,TIGERS,17,0 
DATA 318,PADRESC8 SPACES!,9,9 
DATA 320,WHITE S0XI5 SPACES!,4,15 
DATA 322,SENATORS,6,11 
DATA {ESC!,0,0 

GRAPHICS Q 0:POKE Q559,00:SETCOLOR 01,09, 
04:7 CHR* (0125) : REM 

7 "{DOWN!";LNO;" DATA ";LNO;",";TEMP1$;" 
, " ;LW; ", ";LL:7 :? :? "CONT" 

POSITION 00,00:POKE 0842,Q13:STOP 

POKE Q842,Q12:SETCOLOR 01,09,Q10:Y* ="":R 

ETURN 

W=O0:START=O0:XX=X:GOSUB 018:P0KE 0752,Q 

GOSUB 015:IF A=Q155 THEN GOTO 446 
IF A=126 THEN GOSUB 25:GOTO 0430 
IF ST ART = PROP THEN GOTO 0430 


IF W=Q1 THEN GOTO 445 

IF LINEt="IN" AND A=Q27 THEN W=G1:POKE Q 
694,0128:GOTO 0430 

IF LINE$<>”LINE" THEN POKE 0694,00 
IF Y*="7." THEN 7 CHR$(A) : X=X+Q1 : POSITION 
X,Y:START=START+Q1:TEMP*(START,START+Q1 
>=CHR*(A):GOTO 0430 

7 #Q6;CHR*(A):X=X+Q1:POSITION X,Y:START= 
START+ 01:TEMP*(START,ST ART + 01)=CHR* ( A) :G 
OTO 0430 

IF Y * < THEN POSITION X,Y;7 #6;" " : GO 

TO 448 

POSITION X,Y:7 " " 
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44S IF ST ART = Q0 THEN SOSUB Q18 

449 POKE 0694,00:RETURN 

450 DIM TEMPI*<Q14>,TEMP*(Q15),Y$(01),ORDER( 
Q30),LINE*(Q40),V* <1) 

455 RESTORE Q800:READ Y*:IF Y*<>"<ESC}" THEN 
SOSUB Q260:RESTORE Q800:FOR 1=01 TO TEA 
MNO:READ W,W,L,L:ORDER<I>=W:NEXT I 

500 rem isr:n:w:i=TTir 

507 V*=”":XX=Q0:GRAPHICS Q18:S0SUB Q190:? #0 
6:? #Q6;”E enter new tearns”:SOSUB Q24:? 

508 START=1:GOSUB 024:? #Q6;"E printout stan 
dings”;:GOSUB Q24 

509 ? #Q6; " E EEaBE:'' : GOSUB Q24:? #Q6;”[I en 
d”:GOSUB Q24:? #Q6 

510 GOSUB Q260:? #06;" PMlMM ' lJBj.iiHg T " ; TE 

AMNO: POSITION Q1,Q9:? #6; " ' 

511 POKE 0764,Q255:GOSUB Q22:GET #Q1,A:IF A< 
Q64 OR A >070 THEN GOTO Q511 

514 IF A=69 THEN GOSUB 1000:GOTO Q507 

515 IF A=Q65 THEN GOTO 526 

516 IF A=Q68 THEN GOTO Q70 

517 RESTORE Q306:READ TEMP*:IF TEMP*(Q1,Q1)= 
"CESCJ” THEN GOTO 0100 

519 IF A=66 THEN SAV=Ql:GOSUB Q630:GOTO Q507 

520 IF A=67 THEN GOSUB 52:GOTO Q507 

522 GOTO Q511 

523 REM 

526 GOSUB 875:LL=Q0:LW=Q0:GRAPHICS Q18:G0SUB 

Q190: POSITION Q1,Q3:? #06; " M.WiJir nF 

tWBZSBSi" 

527 LINE*="LINE":POKE Q694,Q128:X=Q3:Y=04:PR 
0P=Q14:GOSUB Q425:TRAP 527:TEMP1*=TEMP*( 
Q1,START) 

530 GOSUB Q255:POSITION Q1,Q7:? #06;"enter n 
o. o-f teams” 

533 X=Q3:Y=Q8:PROP=Q2:GOSUB 0425:TRAP 39:TEA 
MNO=VAL(TEMP*):IF TEAMNO >030 OR TEAMNO<1 
THEN GOSUB 289:GOTO 533 

535 LNO = Q300:GOSUB 0400:TEMP 1* = TEMP*(Q1,STAR 
T) 

536 LNO=Q304:GOSUB 0400:START=Q306:LL=398:ST 
EP=Q2:GOSUB Q35:GOSUB Q14 

575 LNQ=Q304:FOR I=Q1 TO TEAMNO:LNO=LNO+Q2:G 
RAPHICS Q18:POKE 559,Q34:GOSUB 190:POSIT 
ION 01,02 

576 ? #06; " ED” ; I 

578 LINE*="IN":Y=Q3:X=Q3:PROP=Q14:GOSUB Q425 

580 TEMP1*=TEMP*:IF START=Q0 THEN GOTO Q57S 
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605 POSITION Q0, Q5: ? #Q6;" enter no. of wins 

GOSUB Q24 

606 X=Q3:Y=Q6:POSITION X,Y:PR0P=B3:GOSUB Q42 
5 : Y = Q8 : TRAP Q770 : LW=VAL ( TEMP* ) : I F LUKQ0 
OR LW>999 THEN SOTO Q770 

610 POSITION Q0,Q8:? #Q6;" ENTER NO. OF LOSS 
ES":GOSUB Q24 

613 X=Q3:Y=Q9:POSITION X,Y:GOSUB Q425:Y=D10: 
TRAP Q765:LL=VAL(TEMP*) : IF LL< Q0 OR LL>9 
99 THEN GOTO D765 

614 IF Y* = “ ' " THEN RETURN 

615 POKE 702,Q64:GOSUB Q400:NEXT I:GOSUB D89 
8 :GOSUB Q975:G0SUB Q900:GOTO Q507 

629 REM 

630 Y*="PCT1=Q0:RESTORE Q895:READ LNO,TEMP 
* :POKE 82,(40-(LEN(TEMP*)+14))/2:GOSUB 7 

631 STN0=Q12:IF PEEK(53279)<>Q3 OR V*="Y" TH 
EN GOSUB 200:POSITION LL+Q1,Q2:? TEMP*;" 

632 IF V * ="Y“ THEN Y*="<" 

635 IF PCT1=1 THEN GOSUB 024:GOTO 650 

640 GOSUB 200:GOSUB 215:REST0RE 302:READ TEM 
P*:GOSUB 210 

650 RESTORE Q871:READ L,L:RESTORE L:READ LNO 
, TEMP*, W, L: POSITION 00,Q5:? ”14 ajEHS>D 
1 0 a J:I»lafaD CC 3 gQH»SJ} HC 3 IJ4JI 

■■SEC 5 tliliTHrS j " 

654 IF V*< >"Y" THEN ST ART=1 

655 Y = Q0:GOSUB Q260:FOR I=ST ART TO TEAMNO:RE 
STORE ORDER(I):READ LNO 

659 Y=Y+Q1:POSITION Q1,Y+Q5:? I 

660 POSITION Q4,Y+Q5:READ TEMP*:? TEMP*:READ 

LW:POSITION 19,Y+Q5:? LW:READ LL 

661 POSITION 23,Y+Q5:? LL:GOSUB Q261 

676 IF I>24 THEN TEMP2=04:GOTO 680 

677 IF I>16 THEN TEMP2=Q3:GOTO 680 

678 IF I< Q9 THEN TEMP2 = 01:GOTO 680 

679 TEMP2=Q2 

680 IF IOQB AND 1016 AND IOQ24 THEN NEXT 
I 

681 YY=Y:IF V*="Y" THEN 705 

682 GOSUB Q155 

695 GOSUB 1000:IF A=66 THEN GOTO Q705 

696 IF A = Q65 AND I < TEAMNO THEN GOSUB 99:Y = Q0 
:NEXT I 

697 IF A=67 THEN RETURN 

698 IF A=Q70 THEN GOTO 41 

699 IF A=Q68 THEN 727 
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700 GOSUB Q165:GOTO 695 

705 GOSUB Q33: Y$="7." : POSITION Q6,YY+Q7:? "EN 
TER TEAM NO. THEN HIT I:lahill-TT " ; PROP=B2; X 
=Q17:Y=YY+Q8:POKE Q752,Q1 

706 TRAP Q705:GOSUB Q425:G0SUB Q33:OL=VAL<TE 
MPt) : IF OL >TEAMNO THEN GOTO Q705 

707 IF TEMP2=Q3 THEN IF 0L<Q17 OR 0L>Q24 THE 
N GOTO Q705 

708 IF TEMP2=Q2 THEN IF 0L<Q9 OR 0L>16 THEN 
GOTO Q705 

709 IF TEMP2=Q1 THEN IF 0L>Q8 OR OL<Ql THEN 
GOTO Q705 

710 IF TEMP2=4 THEN IF OL>30 OR 0L<25 THEN G 
OTO 0705 

711 IF TEMP1$="Y" THEN RETURN 

712 POKE 082,02:POSITION Q2,YY+Q7:? "PRESS C 

TO ADD WIN":? "PRESS H TO ADD LOSS":? " 
PRESS 3” ; : REM ISHI ■ EBBE i MI Ml 

713 ? " THEN C TO SUBTRACT WIN":? "PRESS a T 

HEN H TO SUBTRACT LOSS":? "PRESS E FOR M 
ENU" :? "PRESS mami-TT TO " ; 

714 ? "CHANGE ANOTHER TEAMS <. 8 SPACES I STATS " : 
GOSUB 298:STEP=OL:FOR 1=1 TO YY:POSITION 

33,1+5:? "{6 SPACES!";:NEXT I 

715 IF O L > Q 8 THEN OL = OL —08:GOTO 715 

716 GOSUB 29: IF AOQ155 AND A< >83 AND A< >77 
AND A< >76 AND A<>87 THEN 716 

717 GOTO 985:GOSUB 29:GOTO 720 

718 IF A=87 THEN LW=LW-Q1:GOTO 723 

719 IF A = 7 6 THEN LL = LL-Q1:GOTO 723 

720 IF A=76 THEN LL=LL+Q1 

721 IF A=87 THEN LW=LW+Q1 

722 IF A=77 THEN GOSUB Q33:P0SITI0N QB,D-Q2: 
GOSUB 19:GOSUB 997:OL=STEP:GOSUB Q400:GO 
SUB 0898:GOSUB 0900:RETURN 

723 IF LL< 00 THEN LL = Q0 

724 IF L W < Q 0 THEN LW = Q0 

725 POSITION 19,0L+Q5:? LW;“ ":POSITION 23,0 
L+05:? LL;" ”:GOSUB 021:Y=OL:Y*="<":GOSU 
B 0261:GOTO 716 

727 TEMPlt="Y":GOSUB 0705:POSITION Q6,YY+Q7: 

? "ENTER FOR TEAM #" ; OL: X = Q13: Y 

=YY+Q8:PROP=Q14 

728 LINEt="IN":Y$="-/.":GOSUB 0425 : TEMP 1 t = TEMP 
$:RESTORE ORDER(OL):READ TEMP$,TEMP$,LW, 
LL:LNO=ORDER(OL):GOSUB 0400 

729 RETURN 

730 IF A < >0155 THEN Y = OL:GOSUB 272:G0T0 715 



Applications and Education 


735 GOSUB Q33:POSITION 00,YY+Q6:GOTO 681 
750 TRAP 750:POSITION 00,03:? #06;" turn on 
printer!":? #06:? #Q6;"{4 SPfiCESJthen h 
it rS. " : POSITION 00,06 

755 ? #6;"{18 SPACES}":GOSUB 022:GET #Q1,A:IF 

A< >80 THEN RETURN 

756 GOTO 55 

760 POSITION 00,08:? #6;"sorry, you have 

C4 SPACES}already entered the maximum no 
. o-f t earns " : GOTO 0511 

765 POSITION 03,Q9:? #6;"{3 SPACES}":GOTO 61 

3 

767 GOTO 56 

770 POSITION 03,06:? #6;"C3 SPACES}":GOTO 60 
6 

775 ? :? " SEE ERROR - ";PEEK<195):POKE Q75 
2,00:END 

790 GRAPHICS Q0:SETCOLOR Q2,Q12,04:SETCOLOR 
04,03,06:RETURN 

799 REM 

800 DATA B00,316,4,860 
802 DATA 802,310,4,860 
804 DATA 804,318,4,860 
806 DATA 806,308,4,860 
808 DATA 808,314,4,860 
810 DATA 810,306,4,860 
812 DATA 812,322,4,860 
814 DATA 814,320,4,860 
871 DATA 871,316,4,860 

875 GRAPHICS Q18:G0SUB Q190:POSITI ON 00,Q2:? 

# Q 6; "{4 SPACES}enter date":? #6;" EXAMP 
LE : DB5EEBOE" 

880 ? #06; " {14 SPACES} EE" : ? #6; ”{11 SPACES}GH5 

885 LINEt="LINE":POKE 0694,0128 
890 X=Q6:Y=Q6:PR0P=Q8:GOSUB 0425:LN0=Q895:TR 
AP 885:GOSUB Q255:G0SUB Q400:RETURN 
895 DATA 895 , QQSIXEE, 9 , 1 0 

898 GRAPHICS Q18:? #Q6:? #Q6:? #Q6; M sortin 
g teams.”:? #Q6 

899 ? #6;"£5 SPACES} : GOSUB Q95: 

RETURN 

900 RESTORE ORDER<Q1):READ L,TEMPt,START,PRO 
P:TEAM=ORDER(Q1):START=START-PROP:GOSUB 
Q260 : REM bT.lrli 

901 IF TEAMNO=Q0 THEN RETURN 

902 FOR 1=01 TO TEAMN0-Q1 : REM anaummill 

903 FOR J =I+ Q1 TO TEAMNO 

910 RESTORE ORDER ( I):READ LNO, TEMP * ,W,L 
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915 IF W=Q0 THEN PCT1=Q0:GOTO 925 

920 PCT1=(W/(W + L)) 

925 RESTORE ORDER(J>:READ LNO,TEMP*,LW,LL 

927 IF LW=Q0 THEN PCT2=Q0:BOTO 940 

930 PCT2=(LW/(LW+LL)) 

940 IF LW-LL>START THEN TEAM=ORDER(J):START= 
LW-LL 

945 IF PCT2=PCT1 AND W<LW THEN SOSUB 980:GOT 
0 971 

950 IF PCT2 >PCT1 THEN GOSUB 980 

971 NEXT J:NEXT I 

972 STEP=Q2:START=Q800:LL=860:GOSUB Q35:G0SU 
B Q260:LN0=79B:REM @CiIiOaEiggi3EfilE 

973 FOR I=Q1 TO TEAMNO:LNO=LNO+Q2:TEMP1$=STR 
*<ORDER(I)):GOSUB Q400:NEXT I:GOSUB Q260 
:TEMP1$=STR$(TEAM) 

974 LN0=871:GOSUB 400:RETURN 

975 POKE 0559,Q0:RESTORE Q306:FOR I=Q1 TO TE 
AMNO 

976 READ LNO,TEMPlt,LW,LL:ORDER(I)=LNO:NEXT 
I 

977 RETURN 

980 PROP=ORDER(I):ORDER(I)=QRDER(J):ORDER(J) 
=PROP:RETURN 

985 IF A=Q155 THEN 2000 

990 IF A< >83 THEN 720 

991 IF A=83 THEN POKE 764,255:GET #1,A:GOTO 
718 

995 GET #1,A:GOTO 717 

997 POSITION Q6,YY+Q7:? "ENTER DATE THEN HIT 

HMUnH" : PR0P = Q8: Y$="7." : X=16: Y = YY + Q8: POK 
E Q752,Q1:LINE*=”LINE” 

998 POKE 0694,0128:RESTORE ORDER(OL):READ LN 
O,TEMPI*:GOSUB 0425:LNO=ORDER(OL):GOSUB 
Q400:GOSUB 0255:LN0=Q895 

999 RETURN 

1000 

1005 


1010 

1015 

1020 

1025 

1050 

1055 

1060 
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r a i -i ana am ; i : ? : ? ■■ 

C8 SPACES)- (HIT maHUri:' FOR MENU)" 
POSITION 16,5:INPUT TEMP*:TRAP Q507 
IF TEMP*(01,Q1)="D" OR TEMP*(Q1,Q1)="E" 
THEN 1050 

? :? " C7 SPACES! HIT TO SAVE" 

CSAVE :END 

? :? ” 19 SPACESIHIT 01013: TO SAVE":GOS 

UB 022 

GET #01,A:IF A<>155 THEN 1055 

TRAP 775:SAVE "D:STANDING.SAV”:POKE 752 

,0:END 
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2000 OL=STEP:RESTORE ORDER(OL):READ LNO,TEMP 
1$:LNO=ORDER(OL):SOSUB Q400:V*="Y” 

2005 POKE 752,2:GRAPHICS 0:? :? :? " BHBJE 

2006 ? " C8 SPACES >1) TEAMS(1-8)" 

2007 ? "C8 SPACES} 2 ) TEAMS ( 9-1 6 ) " 

2008 ? "£8 SPACEST3) TEAMS(17-24)" 

2009 ? "{8 SPACES}4) TEAMS(25-32)":? :? :? 

2010 TRAP 2010:? ”CUP}C5 SPACES}YOUR CHOICE: 

C 4 SPACES}C3 LEFT}INPUT CHOICE: IF CH 
OICE<1 OR CHOICE>4 THEN 2010 

2015 GOSUB CHOICE+3000:IF START>TEAMNO THEN 
2010 


2016 V$="Y ”:GOTO 630 

3001 START=1:RETURN 

3002 START=9:RETURN 

3003 START=17:RETURN 

3004 START=25:RETURN 
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CalCalc: 

Computerize Your 
Diet 

Charles Brannon 


This program can help you lose weight by cutting calories. Be sure to 
consult your doctor before using this program or any other weight-loss 
technique. 

Calorie counting is important in most diet plans. Unfortunately, 
the process of looking up every item of food you eat is discourag- 
ingly tedious. And even if you conscientiously keep track of calo¬ 
ries, how do you know how much progress you're making? 

Your body bums a certain number of calories per day. The 
number depends on your sex, build, and activities. In order to 
lose weight, you must eat fewer calories than your body needs, 
forcing it to convert fat tissue into carbohydrates. On the other 
hand, if you eat more calories than your body bums in one day, 
the excess is converted into fat. 

3500 Calories = 1 Pound 

In order to lose one pound of fat, you have to miss 3500 calories. 

In order to gain a pound, you have to have an excess of 3500 calo¬ 
ries. This is not on a daily basis; calories accumulate. So, if you ate 
1000 more calories each day than your body used, you would gain 
one pound in about three and a half days. 

Since any calculation is spread over many days, it can be 
hard to see progress, or to forecast how long it will take to shed 
excess weight. The computer is of great aid here. 

"CalCalc" asks you a number of questions, such as your sex 
and age, to determine how many calories you need each day. You 
then enter everything you've eaten at the end of the day, selecting 
foods and quantities from a list (a menu, appropriately enough). 
Just press the letter corresponding to the food you ate. If you don't 
see a certain food, press RETURN to see more items. 
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Adding to the Menu 

What if you ate a food not on the list? This is not too hard, since 
we've included only a sample selection of foods, found in the 
DATA statements from lines 1140 and up. To customize this list to 
your preferences and habits, just purchase a pocket-sized calorie 
counter (available at most grocery-store checkout counters). Then 
add to or change the DATA statements. 

There is one DATA statement for each food. The first item on 
the line (after the word DATA) is the name of the food. Make the 
name less than 20 letters long. The next item, preceded with a 
comma, is the number of calories in an average serving, followed 
by a comma, and the description of the average serving, such as a 
1 CUP or one 8" EAR. The last DATA statement (line 1500 here) 
should be END,0,0 which marks the end of the list. 

After you've pressed the letter corresponding to the food 
you've eaten, the computer will display the quantity (such as one 
cup) and calories of an average serving. You enter the multiple or 
fraction in decimal of the quantity given. For example, if you 
drank two glasses of milk for breakfast, enter a 2, for two one-cup 
portions. If you had half a medium orange, enter 0.5. CalCalc 
then displays the calories for the food consumed, and the cumula¬ 
tive total of calories. You continue to enter foods for everything 
you've eaten. 

Guesstimating 

You can also approximate calories. For example, if you ate a 
chicken-filet sandwich, you could select T, chicken (one 4-ounce 
serving), and K, two one-slice portions of white bread. Or, if you 
can look on the wrapper of the product, you can enter the calories 
directly. Just press the number sign, #, instead of a letter, and 
enter the calories literally. 

The Moment of Thith 

After you've finished entering all the foods, the computer is ready 
to forecast weight loss. It bases this forecast on the assumption 
that you will eat about the same number of calories each day. Just 
enter the number of days you want to "look ahead," and CalCalc 
will tell you how much weight you will have lost. If you're eating 
too much, it will, with equal placidity, show you how much you'll 
have gained. 

CalCalc makes dieting much easier. It goes beyond mere 
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automation of a calorie counter by letting you see the effect of 
changes. By cutting down on meals and checking your total calo¬ 
ries with CalCalc, you can see if you'll lose weight. 

CalCalc 

100 GRAPHICS 0iPOKE 752,1:P0KE B2,0:GOSUB 10 
20:DIM A*(1),FOOD*(19),AMOUNT*(10) 

105 OPEN #1,4,0,"K" 

110 PRINT " {DOWN) IgT:l;i:n:r« l : CONSULT YOUR DOCTO 
R BEFORE" 

120 PRINT "{9 SPACES)USING THIS PROGRAM OR A 
NY” 

130 ? "C9 SPACES)-OTHER WEIGHT-LOSS TECHNIQUE 

140 ? ”{DOWN)ARE YOU GALE OR HEMALE?" 

150 GET #1,A:A*=CHR*<A):IF A*<>"M" AND A*<>“ 
F“ THEN 150 

160 S X = 0: IF A * =”F" THEN SX=1 
170 IF SX=0 THEN 200 

180 7 ”(DOWN)ARE YOU PREGNANTGOSUB 980:IF 
YES THEN PREG=1 

190 7 " -C DOWN) ARE YOU NURSING" GOSUB 980: IF 

YES THEN NU=1 
200 GOSUB 1020 

210 7 "ENTER 0 IF NOT KNOWN:":? 

220 TRAP 220:7 "CUPXDEL LINE) NUMBER OF CALO 
RIES CONSUMED70C2 LEFT)”;:POKE 752,0:INP 
UT CAL:POKE 752,1:TRAP 40000 
230 IF CAL< 0 THEN PRINT ” {DOWN) C BELL ) HSEH^aj 
□DO":GOTO 200 

240 IF CAL > = 4500 THEN PRINT "tDOWN)CAL; "CA 
LORIES? ARE YOU SUREGOSUB 980:IF 1-YE 
S THEN 200 
250 IF CAL THEN 730 
260 PX=0:PY=10:GOSUB 1020 
270 FOR 1=1 TO 26 
280 READ FOOD*,CL,AMOUNT* 

290 IF FOOD*="END" THEN 330 

300 POSITION P X,PY:7 CHR*<I+192FOOD*:P 
Y=PY+1 

310 IF 1=13 THEN PX=20:PY=10 
320 NEXT I 
330 REM 

340 IF PEEK (20) >60 AND PEEKI20X120 THEN POS 
ITI ON 2,23:7 "ENTER □ OR OF FOOD” 

350 IF PEEKI20)>120 AND PEEK(20)<180 THEN PO 
SITION 2,23:7 “PRESS Irl^XHTIT TO GO ON 
C5 SPACES)"; 
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360 IF PEEK(20)>180 THEN POSITION 2,23:? "PR 
ESS E3 WHEN DONE 14 SPACES! " ; : POKE 20,0 
365 IF PEEK(764)=255 THEN 340 

370 GET #1,A:A$=CHR$(A):IF <A$<"A" OR A$>"Z” 
) AND A*<>CHR$(155) AND A$<>"*” AND A$<> 
THEN 340 

380 IF A $ < > C H R $(155) THEN 410 

390 N X =N X + 1: I F FOOD$="END" THEN RESTORE :NX = 
0 

400 GOTO 260 
410 RESTORE 

420 IF A$="#" THEN 600 

430 IF A$= ,, »" THEN 660 

440 FOR 1 = 1 TO NX#26+ASC <A$)—64 

450 READ FOOD'S, CL, AMOUNT* 

460 NEXT I 

470 GOSUB 1020 

480 PRINT "FOOD: ";FOOD$ 

490 PRINT "CALORIES PER ";AMOUNT*;":";CL 
500 PRINT "{DOWN)ENTER QUANTITY OF ABOVE FOO 


510 PRINT "CONSUMED, USING A MULTIPLE OR":? 


520 


530 

540 

550 

560 

570 

580 

590 

600 

610 


TRAP 520:PRINT "{UP!{DEL LINEIA DECIMAL 
FRACTION?0{2 LEFT!POKE 752,0:INPUT QU 
:POKE 752,1:TRAP 40000 
IF QU=0 THEN 590 

IF QU< 0 THEN PRINT "{DOWN!{BELL! HUHiHEeX 
DO" :FOR W=1 TO 500:GOTO 470 

PRINT "{DOWNICALORIES OF ";FOOD*;":";CL* 
QU 

PRINT "{DOWNICALORIES CONSUMED SO FAR:"; 

:CAL=CAL+CL*QU:PRINT CAL 

? "{2 DOWNIPRESS TO CONTINUE..." 

GET #1,A:At=CHR$(A):IF A*<>CHR*<155) THE 
N 580 

RESTORE :N X = 0:GOTO 260 

GOSUB 1020:? "{DOWNIENTER ABSOLUTE QUANT 


ITY" 



FOOD NOT ON LIS 


620 TRAP 620:? ”{UPI{DEL LINEI?0{2 LEFTI";:P 
OKE 752,0:INPUT CL:POKE 752,1:TRAP 40000 
630 IF CL=0 THEN NX=0:GOTO 260 

640 IF CL< 0 THEN ? "{ DO WNI { BELL I §3335^^330” : 

FOR W=1 TO 500:NEXT W:GOTO 600 
650 QU=1:GOTO 560 
660 GOSUB 1020 

670 PRINT "TOTAL CALORIES CONSUMEDCAL 
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680 ? "{2 DOWN}DOES THAT SOUND REASONABLE";: 

GOSUB 980 

690 IF YES THEN 730 

700 ? "{DOWN}DO YOU WANT TO":? "RE-ENTER THE 

CALORIES";:GOSUB 980 
710 IF YES THEN CAL=0:GOTO 260 
720 PRINT ” {CLEAR}”:END 
730 GOSUB 1020:? :? 

740 TRAP 740:PRINT "CUPIIDEL LINEIWHAT IS YO 
UR AGE?20 <3 LEFT}";:POKE 752,0: INPUT AGE 
:POKE 752,1:TRAP 40000 

750 IF AGE< 20 OR AGE>70 THEN PRINT "CD0WN}E2r 


760 

770 


790 


810 

820 

830 

840 

850 


860 

870 


890 

900 

910 


920 

930 

940 

950 

960 

970 


IF A G E < 2 0 OR AGE >70 THEN FOR W=1 TO 300: 
NEXT W:GOTO 730 


IF AGE > = 20 OR A G E < 3 0 THEN CPD = 3200:IF SX 
THEN CPD=2300 

IF AGE >30 AND AGE<40 THEN CPD = 3104: IF SX 
THEN CPD=2231 

IF AGE >40 AND AGE<60 THEN CPD = 2768:IF SX 
THEN CPD=1990 

IF AGE >60 AND AGE<70 THEN CPD =2528:IF SX 
THEN CPD=1587 
CPD=CPD+1000*NU+450*PREG 
? "IDOWNION A SCALE OF D-E" 

? "l=MODERATELY ACTIVE, 5=VERY ACTIVE" 

? "HOW ACTIVE ARE YOU?" 

GET #1,A:A$ = CHR*<A) : IF AUK "1" OR A*>"5" 
THEN 850 


CPD=CPD+VAL(A$)*200 

GOSUB 1020:? "{DOWNIESTIMATED ENERGY EXP 
ENDITURE”:? "IN CALORIES IN ONE DAY:”;CP 
D 

? "<DOWN>TOTAL CALORIC INTAKE IN ONE DAY 

:";CAL 
DF=CAL—CPD 

? " -CDOWNINUMBER OF DAYS TO PROJECTED" 

TRAP 910:? "WEIGHT LOSS/GA IN?1t2 LEFT}"; 
:POKE 752,0:INPUT ND:POKE 752,1:TRAP 400 
00 

IF ND<1 THEN 910 

? "CDOWN}AT THE CURRENT CONSUMPTION, YOU 
SHOULD" 

IF DF< 0 THEN PRINT "LOSE "; :GOTO 960 
? "GAIN "; 

PRINT INT(ABS(DF*ND) /3500) ; " POUNDS." 

END 
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990 GET #1,A:A$=CHR$(A) : IF A$< > ,, Y" AND A$<>" 
N“ THEN 990 

1000 YES = 0: IF A$="N" THEN PRINT "EE":RETURN 
1010 YES= 1 : ? " CT5g| " ; RETURN 
1020 PRINT "{CLEAR!"; 

1030 ? " {3 N!{3 SPACES!<2 N!C3 SPACES!{N! 

{5 SPACES! ■£ 3 N!{3 SPACES! € 2 N ! 

13 SPACESHNH4 SPACES!{3 N!" 

1040 ? " {F!£G! {G! £F!£G! EG! £B! £2 G! 

E 3 SPACES!EF!EG! EG! EF!EG! EG! EB! 

E2 G! E F!EG! EG!" 

1050 ? " EB! EG! EH! E3 EB! EG! EH!ME.I1 

EB! ■ EB! EG! EH! E3 SfiJilii^ ! EB! EG! EH! — 

E J ! EB! ■ EB! EG! EH! E3 ajCHSU " 

1060 ? "EB! BE3 SPACES!EB! HEN!E V!BEB! ■ 

EB! BE3 SPACES! EB! BE N! E V! BE B! fl EB! B" 
1070 ? " EB! BE 3 SPACES! EB! B EG!'BEB! B EB! 

BE 3 SPACES! EB! B EG! BE B! B EB! B" 

1080 ? " EG1BE2 M! EG! EB! E4 «-X:T»l=iH ! EB! BEM! 
EG! EG! BE 2 M! EG! EB! E4 SCEH^!EB! BEM! 

E 2 G! BE2 M!EG! " 

1090 ? " EH!E3 aGUHS! EG! B EG! B EG! 

E3 aEESia! EED E3 a J:T»4=fc1 ! EG! B EG! B 
EG! E3 HJ:T»l=fcl ! EEDE3 BiCHSl " 

1110 ? : POKE 85,11:? " W: 1 K . 1 i I rf.1 " 

1120 PRINT "E 40 R!" 

1130 RETURN 

1140 DATA CHEDDAR CHEESE , 1 1 3, 1 ’ 11 CUBE 
1150 DATA COTTAGE CHEESE, 27, 1 OZ 

1160 DATA WHOLE MILK,166,1 CUP 
1170 DATA NONFAT MILK,87,1 CUP 
1180 DATA GRAPEFRUIT,77,1 CUP 
1190 DATA ORANGES,70,1 MED. 

1200 DATA CANTALOUPES,37,1/2 MELON 
1210 DATA APPLES,87,1 MED. 

1220 DATA ORANGE JUICE,108,1 CUP 
1230 DATA CORN FLAKES,96,1 CUP 
1240 DATA WHITE BREAD,63,1 SLICE 
1250 DATA WHOLE WHEAT BREAD,55,1 SLICE 
1260 DATA HAMBURGER MEAT,316,3 OZ. 

1270 DATA STEAK,293,3 OZ. 

1280 DATA LAMB CHOP,480,4 OZ. 

1290 DATA BACON,48,1 SLICE 
1300 DATA HAM,340,3 OZ. 

1310 DATA FLOUNDER,78,4 OZ. 

1320 DATA TUNA FISH,170,3 OZ. 

1330 DATA CHICKEN,227,4 OZ. 

1340 DATA EGGS,640,1 CUP 
1350 DATA SUGAR,48,1 TBS. 
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1360 DATA 
1370 DATA 
1380 DATA 
1390 DATA 
1400 DATA 
1410 DATA 
1420 DATA 
1430 DATA 
1440 DATA 
1450 DATA 
1460 DATA 
1470 DATA 
1480 DATA 
1490 DATA 
1500 DATA 


CARROTS,68,1 CUP 
POTATOES,120,1 MED. 

BEET GREENS,39,1 CUP 
LETTUCE,7,4 SM. LEAVES 
SPINACH,46,1 CUP 
BAKED BEANS,295,1 CUP 
LIMA BEANS,152,1 CUP 
CORN,92,8’’ EAR 
PEAS,74,.5 CUP 
TOMATOES,30,1 MED. 

47. BEER, 150, 12 OZ. 

BLACK COFFEE,9,1 CUP 
COLA BEVERAGES,83,6 OZ. 
POTATO CHIPS, 108, 10 2’’ 
END,0,0 


CHIPS 
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Castle Quest 

Timothy G. Baldwin 


This entrancing, well-designed game offers you the best of both worlds. It 
has the drama, variety, and mystery of a good adventure game combined 
with the fast-paced excitement of an arcade game. Your job is to rid the 
kingdom of the three evil wizards. All this would be easy if the wizards 
weren't so zealously guarded by servants whose names reflect their 
personalities: bat-wingers, blinkers, chokers, crushers, and stompers. 

You are in love with the Princess Dilayna and have asked her 
father the King for her hand in marriage. Her father does not 
particularly like you. He challenges you to demonstrate your 
worthiness by capturing the three evil wizards that have been 
ravaging the kingdom for years. They each live in their own castle 
protected by their servants—the bat-wingers, the blinkers, the 
chokers, the stompers, and the crushers. The castle rooms are 
rumored to be deadly, the untouchable walls, fast-moving 
enemies, and no exits. You reluctantly accept the King's challenge. 

Fortunately, a friendly magician gives you a cloak that makes 
its wearer invisible. But the cloak's power works only for a limited 
time in each room. Once the time is up, you are instantly 
destroyed. The magician also gives you a magic spell that tempo¬ 
rarily freezes all servants in a room. But you must use this spell 
with care: it will consume a portion of the cloak's power each time 
it is used. 

Armed with these aids, you leave on your quest. The King 
wishes you good luck—or did he say good riddance? 

The Three Wizards 

The object of "Castle Quest" is to capture the three wizards. To 
reach each wizard, you must pass through the ten rooms of his 
castle. The rooms are inhabited by the wizard's servants, who 
move about quickly in an unpredictable manner. The higher 
numbered rooms in each castle have more servants (up to 32). The 
servants move progressively faster as you complete more rooms. 

You have three lives to capture the first wizard. Capturing a 
wizard earns you three additional lives. Touching a servant or a 
room wall or failing to exit a room within the allotted time will 
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cause loss of a life. You cannot exit a room until you capture both 
door keys in that room by touching them. One key is invisible 
until the other key is touched. 

Once both keys are captured, the room's exit appears— 
unless you are in a castle's tenth room. In this case, the wizard 
appears, and you must capture him before you can escape. Also, 
once you capture the first key, your presence becomes known to 
the wizard, and he causes room wall segments to move to block 
your escape. You must move quickly to avoid destruction. 

Secret Passages 

A counter at the top of the screen signals the amount of "cloak 
time" remaining. Pressing the joystick fire button will temporarily 
freeze the action, permitting you to move safely past a tight 
comer, but you lose 50 units of cloak time each time you use the 
freeze option. The room number and the number of your 
remaining lives are displayed at the top left of the screen. Your 
score—a measure of your ability to elude the many dangers 
involved—is displayed at the top right of the screen. 

Room patterns, key locations, servant locations, and wizard 
placement are randomly generated, so be prepared to touch keys 
partially embedded in walls, move through weird mazes, etc. 
Sometimes a secret passageway is created at the screen bottom or 
in a room's right wall. You may use these passageways for a 
quick, easy escape. 

Castle Quest 

10 REM {5 Ml IZMZr.l-gJKdTiTJJd:: ! 1 4 

20 C 0 = 0:Cl = l:C2 = 2:C3 = 3:C4 = 4:C5 = 5:C6 = 6:C7 = 7 : C 
3=8:C9=9:C10=10:C15=15:C16=16:C256=256:RA 
MTOP=PEEK(106):MISSI0N=C1 

30 rem m i i ki aaaaia> 

40 GOSUB 1030:GOSUB 770:GRAPHICS 016:? " 

{CLEAR}":POKE 752,C1:SETCOLOR C2,C0,C0:GO 
SUB 310 

50 T1=C8:GOSUB 1150:T1=C16:GOSUB 1150:G=C0:L 
=C3:Q=C0:C=C0:X1=C0:SCORE=C0 
60 GOSUB 320 ^ 

{9 aanss) 

30 GOSUB 970:GOSUB 450:GOSUB 1340:GOSUB 1500 
:POKE 1568,Cl:POKE 77,0:POKE 53243,60:POK 
E 53249,W1 

90 IF C=C10 THEN GOSUB 340 
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100 X=USR(1767):FOR I=C0 TO 100:NEXT I:POKE 
1568,F 
110 REM 16 

■C 8 } 

120 G=G—C1:IF (PEEK(1566)<>C0> OR (G<C0) THE 


130 
1 40 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


IF PEEK(203)>204 THEN 520 

POSITION 23 — (G>999) — (G >9 9) — (G>09) ,C0:? C 
HR*(B) ;G;CHR*(B) : IF G<100 THEN SETCOLOR 
C 2 , C 4 , C 0 

X = PEEK. (53260) : IF <X-X1)> = C2 THEN POKE 53 
250, W2: POKE 53249,00: IF PEEK (706) ON THE 
N GOSUB 380:POKE 706,N 

IF X — X1> = C4 THEN POKE 53251,W3:POKE 5325 

0,00 

IF X > = C6 THEN GOSUB 260 

IF STRIG(00)=00 THEN POKE 1568,01:G=G-50 
:FOR 1=0 TO 250:NEXT I:POKE 1568,F 
CHBASE=RAMT0P-C8-C8*(INT(G/2)=G/2):POKE 
756,CHBASE 

IF PEEK(706)=N THEN IF RND(C0)>0,95 THEN 
PLOT I NT(RND(00) *38) , I NT (RND(00) *22) :GO 
SUB 240 


IF STICK(00)<>15 THEN SOUND 02, 

:SOUND 02,00,00,00 
GOTO 120 
REM C3 
<3 

FOR I=C0 TO 30:SOUND 00,I,00,C15:NEXT I: 
SOUND 00,00,00,00:RETURN 

rem 

•C4 iJl 

IF C=C10 THEN IF X<>14 THEN RETURN 
FOR I=C0 TO 05:POKE SC + C10*40+I *40-C1,00 
:NEXT I:POKE 53278,255:FOR 1=015 TO 00 S 
TEP -01:SOUND 00,010,010,1 


SOUND Cl, 1 1 ,C10, I+C1:SOUND 02,12,010,1+0 
2:SOUND 3,13,10,I+3:NEXT I:FOR 1=0 TO 3: 
SOUND I,00,00,00:NEXT I 

POKE 53251,00:POKE 53250,00:POKE 53278,2 
55:RETURN 

REM J.]:a=r:^*<i]:«:lilUi»4:i^ 

c 3 gsmns> 

POSITION 010+01,010:? "Wait -for game set 
up " :RETURN 

C = C + C1 : POSITION 010,010:? "Get ready -for 
Room C:0=0-01:RETURN 
REM ■■***«. [f 6 MJilHa ; 
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340 P L =(RAMTOF — 9) *256:PL = PL + 52+I NT(R N D(C 0) * 1 
51):RESTORE 350:FOR I=C0 TO 11:READ Z:PO 
KE PL+I,Z:NEXT I 

350 DATA 102,36,126,90,126,126,66,90,60,60,3 

6 , 102 

360 W3=70+INT(RND<C0)*130)sPOKE 707,P:RETURN 


370 

380 

390 


410 

420 


470 
4 80 
490 


510 

520 

530 

540 


rem BgaiM ;11 ng '^na sumiMi 

SOUND C2,20,C10,C10:SOUND C1,80,C10,C10: 
FOR 1=0 TO 30:NEXT I:SOUND C1,C0,C0,C0:S 
OUND C2,C0,C0,C0:RETURN 
REM 

C 3 kf {8 SF' ACES } MQCIStSnil 2 1 aJiliiiT 

FOR I=C0 TO C 3:POKE 53248+I,Cl:NEXT I:PO 
KE 1568,Cl:? "CCLEART":SETCOLOR C2,C0,C0 
:IF Q THEN RETURN 

POKE DL+C15,C7:POSITION C4,C10:IF 0 THEN 
RETURN 

POKE 756,224:? "TOUGH LUCK!":FOR I=C0 TO 
200:SOUND C0,C6,100,C8:NEXT I:SOUND C0, 
C0,C0,C0:T 2 = C1 

POKE DL+C15,C2:L=L—Cl:? "{CLEAR>":C=C-1: 

GOSUB 320:C=C+1:GOTO 80+500*<L<=C0) 

I 7 (Ji : 1 H ’• 

A=INT <C16*RND <C0) )*C16+C6:M=INT(C16KRND( 
C0) )*C16 + C2:N=INT <C16*RND <C0) > #C16 + C4:P = 
INT<C16#RND(C0))*C16+C3 

B = 33 + C-C6* (05) : C=C + C1 : D = C2 + C2* (OC1 ) +C4 
*(C>C3)+CB*(C>C6)+C16*(C)C9) 

E=INT<RND(0)*5+7):POKE 1763,E 
F = C2+ (OC9) + C2* <MISSI0N-C1 ) 

G=100+C*50:COLOR BsPOKE 157B,31:P0KE 156 
6 ,C 0:POKE 756,RAMT0P-C8:POKE 53278,255: X 
1=C0 

SETCOLOR 2,C7*(C = 7)+ C2*(C = 8)+C1 * <C = 9)+C3 
* <C=10> ,C0:RETURN 

REM C5 32THSI3) 

ts spaces>■ mnssaisi 22 aaiHS} 

Q = C 1 : GOSUB 400.-GOSUB 410:POKE 756,224:? 

" -C 3 SPACES’-AT TABOY * " : Q = C0 

FOR I=C0 TO C5:SOUND C0,C10,50,C8:POKE 7 
05,Cl 0:POKE 706,C10:POKE 710,C10:POKE 7 1 
2,C10:FOR J=C0 TO 50:NEXT J 

SOUND C0,C10, 100,C8:POKE 705,C0:POKE 706 
,C 0:POKE 710,C0:POKE 712,C0:FOR J = C0 TO 
50:NEXT J:NEXT I 
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550 


560 

570 

580 


SOUND C0,C0,C0,C0:POKE DL+C15,C2:? " 
{CLEAR}":GOSUB 320:SCORE=SCORE+MISSI ON*I 
NT<(G*C)/C10> 

IF C-C10 THEN GOTO 580+11 0 * (MISSI0N = C3) 
GOTO 80 


REM C 3 gCEHSJG 


590 ? ”{CLEAR}POKE DL+C9,C6:POKE DL+11,C6: 
POKE DL+13,C6:POKE DL+15,C6:POKE 707,C0: 
IF L < = C 0 THEN 660 

TION 26,C5:? "YOU HAVE":POSITI ON C3,C7:? 
"COMPLETED YOUR" 

610 POSITION 27,C8:? "QUEST":C=C0:L=L+C3 

620 POSITION C5,15:? "Press ESEHSai to contin 
ue" : POSITION C5,17:? "Press 
■ to quit" 

630 POSITION C5,19:? "SCORE: SCORE 

640 POKE 53279,C8:IF PEEK(53279)<>C6 THEN 64 
0 

650 ? "{CLEAR}":POKE DL+C9,C2:POKE DL+11,C2: 
POKE DL+13,C2:POKE DL+15,C2:MISSION=MISS 
ION+(L>C0)*C1:GOTO 60 +620* <L<=C0) 

660 POSITION C 7,C 4:? "SORRY! "zPOSITI ON 24,C5 
:? "you blew it. ":POSITI ON C2,C7:? "ques 
ts completed ”;MISSION-Cl 
670 GOTO 620 
680 RUN 


700 GRAPHICS 2:SETCOLOR C2,C0,C0:POSITION C6 
, C4: ? #6; "YOU WON!":? “Press 
D and then ’RUN 7 to"; 

710 POKE 752,1:? :? "begin a new game." 

720 POSITION Cl,C7:? #6;"final score SCORE 
730 FOR 1=255 TO C0 STEP -Cl:SOUND C0,I,10,1 
0:POKE 712,1:POKE 710,1:NEXT I 


740 

750 

760 

770 

780 

790 

800 


98 


GOTO 740 

POKE 1568,C1:RUN 
REM 

{8 SPACES!! 

RESTORE 790:FOR 1=1536 TO 
A:POKE I,A:NEXT I 
RETURN 

DATA 173,4,208,201,4,24 
,228,141,36,2 
DATA 173,100,228,141,37 
0,208,76,98,228 


536+247:READ 


2,208,22,173,99 
,141,30,6,141,3 
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810 DATA 0,162,2,202,240,42,138,72,173,10,21 
0,41,7,10,170 

820 DATA 189,0,1,133,206,133,208,232,189,0,1 
,133,207,133,209 

830 DATA 32,148,6,165,207,157,0,1,202,165,20 
6,157,0,1,104 

840 DATA 170,208,211,162,5,173,120,2,202,240 
,197,24,106,176,249 

850 DATA 72,224,2,240,8,224,1,208,13,230,203 
,208,2,198,203 

860 DATA 165,203,141,0,208,208,32,169,0,224, 
4,240,8,168,145 

870 DATA 204,230,204,76,134,6,160,7,145,204, 
198,204,160,0,185 

880 DATA 240,6,145,204,200,192,8,208,246,104 
,76,83,6,160,0 

890 DATA 152,145,206,173,10,210,41,1,208,15, 

169.56.141.201.6 

900 DATA 169,233,141,204,6,141,210,6,208,13* 

169.24.141.201.6 

910 DATA 169,105,141,204,6,141,210,6,173,10, 
210,41,1,208,2 

920 DATA 16940, 141,205,6,216,0, 165,206,0,0, 
133,206,165,207,0 

930 DATA 0,133,207,177,206,240,8,165,208,133 
,206,165,209,133,207 

940 DATA 169,11,145,206,96,104,168,162,6,169 
,7,76,92,228,60 

950 DATA 126,90,126,90,102,126,60 

19 s p a r .f s > :iiTrrarrra 11 a mu-mam 

970 POKE 559,62:POKE 54279,RAMTOF-C16:POKE 5 
3248,Cl:POKE 53277,03 

980 PL=RAMTOP—12:Y=PEEK(8e>:Z=PEEK(89):POKE 
88 ,00:POKE 89,PL:POKE 106,PL+C3:7 " 

{CLEAR!":POKE 88,Y:POKE 39,Z 
990 POKE 106,PL+12:PL=PL*0256+120:IF C=C0 OR 
0=010 THEN Z=(RAMT0P-C9)*0256:FOR I=Z T 
O Z + 255:POKE I,C0:NEXT I 
1000 FOR I=C0 TO 07:POKE PL+I,PEEK(1776+I):N 
EXT I 

1010 POKE 203,60: POKE 204,PL-I NT(PL/0256)*02 
56:POKE 205, I NT(PL/0256) 

1020 PL = (RAMTOP —11) *0256:PL = PL + 52+INT(RND(00 
)*151):RESTORE 1030:FOR 1=00 TO 07:READ 

Z:POKE PL+I,Z:NE X T I 
1030 DATA 0,6,15,249,255,166,160,0 
1040 W1=70+I NT(RND(C0> * 130) :PL=(RAMTOP — Cl 0) * 
C256:PL=PL+52+INT(RND<C0)*151):RESTORE 
1030:FOR I=C0 TO 07 
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1050 


1090 
1100 
1110 


1 120 
1 130v 
1 140 

1 150 

1 160 

1 170 

1 180 

1 190 
1200 
1210 
1220 
1230 
1240 

1250 


1260 

1270 

1280 

1290 


1310 


1320 

1330 

1340 


READ Z:POKE PL+I,Z:NEXT I;W2 = 70+I NT(RND 
<C0> * 130) :POKE 705,M:IF T2 = C1 THEN C = C- 
C1iT2=C0 

POKE 53249,C0:POKE 53250,C0:RETURN 
17 1 

GRAPHICS 18:SETCOLOR C2,C0,C0:POKE 708, 
202:POSITION C5,C2:? #C6CASTLE":POSIT 
ION C9,C4:7 #C6QUEST" 

DL = PEEK<560)+C256*PEEK <561) :POKE DL+13, 
C 2 

POSITION C3,C8:? #C6;"How many rooms ca 
n you survive?" 

FOR I=C0 TO C3:POKE 708,C0:SOUND C0,60, 

C10,C8:FOR J=C0 TO 100:NEXT J:SOUND C0, 

160,Cl 0,C8:POKE 708,202 

FOR J=C0 TO 100:NEXT J:NEXT I 

SOUND C0,C0,C0,C0:RETURN 

REM =4d 11 -m-- f i ra n i T - T 1 H i f:1 :T:T .»i =* 

•c9 spaces) ni.ninzia c 22 aans^o 

RESTORE 1160:CL= (RAMTOP-T1) *C256: FOR 1 = 
CL+C8 TO C L + 9 5 :READ A:POKE I,A:NEXT 1 
DATA 204,51,204,51,204,51,204,51,102,15 
3,102,153,102,153,102,153 

DATA 136,34,136,34,136,34,136,34,68,17, 
68, 17.68', 17,68, 17 

DATA 36, 146,73,36, 146,73,36, 146,255,255 

,255,255,255,255,255,255 

DATA 195,102,60,24,24,0,0,0 

DATA 255,255,195,195,195,195,255,255 

DATA 255,255,0,0,0,0,255,255 

DATA 24,24,60,24,255,199,199,255 

DATA 24,255,0,0,0,0,0,0 

FOR 1=128 TO 224:POKE CL+I,PEEK<57344+1 
):NEXT I 

DL=PEEK<560)+C256#PEEK<561>:IF T1=C16 T 

HEN RESTORE 1260:FGR I=CL+56 TO CL+95:R 

EAD A:POKE I,A:NEXT I 

DATA 0,0,0,24,24,60,102,195 

DATA 0,0,60,60,60,60,0,0 

DATA 0,0,255,255,255,255,0,0 

DATA 60,24,24,24,60,60,0,0 

DATA 24,24,24,24,24,24,24,255 

IF T1= C16 THEN FOR I=CL TO CL + C7:P0KE I 

,C 0:NEXT I 

RETURN 

REM — I I I I 

•c9 i i i i — i 111 ij i i 

? " TCLEARI- " : POKE 752, Cl 
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1350 

1360 


13 70 

1380 

1390 

1400 

1410 

1420 

14 30 
1440 
1450 
1460 
1470 
1480 
1490 


1500 

1510 

1520 

1530 

1540 

1550 


PLOT C0,C0:DRAWTQ 39,C0:DRAWTO 39,23:DR 
AWT 0 C 0 ,23:DRAWTO C0,C0 

X = C10:Y = C 0:Z = C7:GOSUB 1400:X = C15:Y = C5: Z 
=13:GOSUB 1400:X=C10:Y=C16:Z=C7:GOSUB 1 
400 

IF RND(C0) <0.5 THEN PLOT RND(C0>*31+C8, 


1 1:DRAWTO RND < C0 


+ C8 , 1 1 


POSITION C 6,C 0:? C:POKE 704,A:POKE 705, 
M 

POSITION C9 , C0 : ? L:F'OSITION 30, C0 : ? SCO 
RE:RETURN 

ON INT(RND (C0> *C8+C1) GOSUB 1410, 1420,1 

430,1440,1450,1460,1470,1480 

RETURN 

PLOT X,Y:DRAWTO X,Y+Z:RETURN 
X=X+C10:GOSUB 1420:RETURN 
X = X + 2 0:GOSUB 1420:RETURN 
GOSUB 1420:GOSUB 1430:RETURN 
GOSUB 1430:GOSUB 1430:RETURN 
GOSUB 1420:GOSUB 1460:RETURN 
POP :GOTO 1360 
REM 


SC=PEEK(88)+C256*PEEK(89):FOR I=C0 TO D 
—Cl:IF INT(RND(C0)*C4)>C2 THEN 1520 
H=SC+40+INT(RND(C0>*279>:GOTO 1530 
H=SC+680+lNT(RND(C0)*239) 

HI=INT(H/C256):LO=H-HI*C256:POKE C256+I 
* C2,LO:POKE H,E 

POKE C256+I*C2+C1,HI:NEXT I:IF D=32 THE 
N RETURN 

FOR I=(D—C1) TO 31:POKE C256+I*C2+C1,25 
4:NEXT I:RETURN 
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Scriptor: An Atari 
Word Processor 

■■■■■■■ Charles Brannon 


" Scriptor" is an easy-to-use, full-scrolling, character-oriented, 
multifunction word processor, requiring an Atari 800XL or 400/ 
800 with a minimum of 32K of memory (40K recommended), an 
Epson MX-80 or Atari 825 printer, and an Atari 810 disk drive. It 
is programmed in both BASIC and machine language. For instruc¬ 
tions on typing in the program, see the section under Typing It In. 

Through the Ruby 

Computers don't just calculate with numbers—they can also 
work with text. Five-inch disks can replace stacks of files. 
Computers can sort, search, select, and update any kind of infor¬ 
mation. They can focus information. In this sense, the computer is 
like the ruby crystal in a laser. Ordinary random light waves are 
transformed and concentrated through the ruby into a tight, 
powerful beam. Computers can do the same for information. 

Word Processing 

Electronic text is more "liquid," easier to work with, than words 
solidified on paper (hard copy). This is what makes word 
processing special: the extrordinary editing power it gives you. 
Distinctions between a rough draft and a final draft are meaning¬ 
less; the work is typed, changed dynamically, and stored to disk. 

It can then later be recalled, revised, and printed out. Very little 
retyping is necessary. What a boon for anyone who writes. 

Converts to word processing immediately notice an improve¬ 
ment in their writing. The entire manuscript becomes "alive," not 
committed to paper. Changing a word or a sentence, inserting a 
line or a paragraph are all accomplished with ease. For example, 
take just one key, the backspace key (called RUBOUT on some 
computers or terminals). When this key is struck, the last char¬ 
acter typed is erased from the screen. Compare this to the 
frequently elaborate typewriter correction schemes. 

Besides the disk file, which has already been mentioned and 
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which will be explained in greater detail later, an important 
concept in word processing is the cursor. Named after the clear 
plastic slide on a slide rule, the cursor shows you where the next 
character you type is going to appear. It usually looks like an 

underline,_, or a solid square. Users familiar with any computer 

have already encountered the cursor. The computer itself doesn't 
need a cursor; but since you can type anywhere on the screen, the 
cursor is vital so that you can know where you are. 

The cursor can be moved up, down, left, and right with 
special keys, usually with arrows on them. To correct the 
following line: 

The quick brown dox jumped! 

you would either press backspace ten times, erasing the text as 
you go, or press cursor-left ten times. The cursor moves over the 
characters without erasing them. It is then resting on the d: 

The quick brown Box jumped 

You can correct the error by typing /, which overstrikes (replaces) 
thed. 

The quick brown f0x jumped 

The cursor can then be moved to the end of the line (ten cursor- 
rights), and typing resumed. 

This sounds harder than it really is. Cursor editing becomes 
second nature after only hours of use. The cursor UP/DOWN keys 
can reach lines of text above and below the current line. It is like 
rolling a typewriter's platen up or down, but with one important 
difference—the "paper" is one continuous, long sheet. 

Getting Specific 

Two very special functions are insert and delete. Insert lets you add 
text in the middle of a line, by pressing INSERT to insert spaces in 
the text, and then typing in the word. For example: 

To be or to be,that is the question.! 

The cursor is placed on the second to, and INSERT is pressed four 
times (three for n-o-t, and one for a space): 

To be or | to be,that is the question. 

The word not is then typed: 

To be or notlto be,that is the question. 
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Delete is used to erase text. As distinguished from mere back¬ 
spacing or spacing over a word, delete closes up the space after the 
deleted word. 

Take out a word! 

Take [3ut a word 

1. (cursor is moved to "o") 

Take Qt a word 

2. (DELETE typed; "o" disappears, "ut a word" moves left.) 

Take 0 word 

(DELETE is typed four times.) 

Insert and delete can also act on words, sentences, lines, or entire 
paragraphs in a similar way. 

Disk Files 

A file is simply a permanent record of your text. When the 
computer's power is turned off, it forgets everything except what 
is "burned" (in ROM memory) into it permanently. Your text is 
obviously not "burned in," or you couldn't ever change it. If you 
have a blackout, or a fuse blows, say good-bye to your text. 

Catastrophes aside, you certainly don't want to leave your 
computer on all the time, or keep the computer tied up with your 
text forever. Fortunately, you can save your text on disk, ready for 
any later revisions. You can type it one time, save your text, and 
print it out when convenient. 

Since a disk can store more than one document (unless it's 
very long), you and the computer must have some way to distin¬ 
guish and separate one file from another. This is usually done via 
a directory, a list of filenames. You access a file by giving the 
computer the file's name. 

"Scriptor," the word processor program at the end of this 
article, has many features usually found only in professional 
word processors, but it lacks a few features such as search and 
replace, justification, data base merge, etc. Also, it is written in 
BASIC, so it can be rather slow at times. It is, however, aided by 
several machine language subroutines for time-critical situations 
such as disk input/output and some editing features. 

typing It In 

Program 1 is the Scriptor program itself. Type it carefully, since it 
contains many critical machine language DATA statements. Extra 
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time spent in typing it in will reward you with a smoother, bug- 
free word processor. Remember to use the Listing Conventions. 
Use the Atari logo key to enter inverse video. 

To give you more memory for text, Scriptor deletes a substan¬ 
tial portion of itself after it initializes (sets up). Don't worry—the 
program is busy running while the screen flashes; it just takes 
awhile. The setup lines from 5000-6999 are automatically erased. 

If you quit the program and try to run it again, the program 
will automatically try to re-RUN itself anew from disk. If you've 
changed disks, you'll need to reload it yourself. You should SAVE 
the program with the filename "D: SCRIPTOR" or change line 455 
appropriately. Be sure to SAVE Scriptor after you've typed it, 
before you run it, or you will find a sizeable chunk of your typing 
erased when you exit. You can free up more memory for text by 
deleting the "help" function. Take out all lines from 1570 to 1700 
and remove line 775. If you'd rather keep this handy aid, leave 
these lines alone. 

If you get the message "Error in DATA statements" when you 
run the program, you need to check your typing of the machine 
language DATA statements at the end of the program. Also make 
sure you haven't typed a letter O for a zero (the zero is thinner 
than the O). 

If you have an Atari 825 printer, you will need to type in the 
lines in Program 2. This will replace the lines used for the MX-80 
with lines applicable to the 825 80-column printer. If you have 
another printer, refrain from using special characters such as 
underlining, and you will probably be able to get one of the sets of 
lines to work. 

Getting Started 

Scriptor is a full-scrolling, character-oriented word processor. The 
use of cursor control keys is similar to normal Atari editor func¬ 
tions, with these exceptions. 

I. <RETURN> is used only to force a carriage return, as at 
the end of a paragraph, or to print a blank line. The computer will 
format your line when you print it out, so just type continuously. 
Do not press <RETURN> at the end of each line. Pressing 
<RETURN> prints a back-arrow at the end of the line, and erases 
all text to the end of that line. 

II. Insert and Delete character (CTRL-INSERT/CTRL- 
DELETE) work on whole "paragraphs." A paragraph is a block of 
lines from the cursor to a "back-arrow." If there is no back-arrow. 
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one is assumed at the end of text. Therefore, Insert and Delete can 
be quite slow if you don't have a back-arrow somewhere. 

III. Insert and Delete line work on the entire document. The 
screen will blank during this operation. This is normal and speeds 
up the process, as it can be slow on long documents. 

IV All TAB controls work normally, just a little slower. 
<CTRL-K> will clear all tab settings. 

V <CLEAR> will not clear the screen. It is used to erase all 
or part of the text. Press <CLEAR> <A> to erase all text. Press 
the Atari logo key to abort the erase function. 

VI. The break key is disabled. Use <CTRL-Q> to exit the 
program. 

VII. The ESC key enters the "mini-DOS." (See below.) 

VIII. The console keys are "live"; see a description of their 
functions later. 

IX. The Atari logo key is disabled for normal typing. Within 
prompts, it acts as an "abort" key. 

Getting Control 

Since the Atari is not a dedicated word processor (that means it's 
not just a "word processing machine" like a Lanier, but is, rather, a 
general-purpose computer), it does not have special keys to acti¬ 
vate word processing functions. Instead, the <CTRL-key> 
combination is used. For example, to quit the program, you 
would hold down <CTRL> and press <Q>. The CTRL key 
stands for "Control"—it is like a special shift key. The keys are 
linked mnemonically (easy to remember) to the commands they 
stand for, such as <P> for Print Text. To get a list of the 
commands and what they stand for at any time, just press 
<CTRL-?> (hold down CTRL and press the question mark) for a 
HELP menu. See Table 1 for a quick-reference chart of the 
commands. 

Going Around the Block 

An important feature in a word processor is block move and 
delete. Scriptor lets you define a series of up to 23 lines. You can 
then move these lines to another place in the text with Line Dupli¬ 
cate, or delete the defined lines with <CLEAR/D> (Erase: 

Defined lines). To define a block of lines, just place the cursor on 
the first line and press <CTRL-D>. A flashing arrow will appear 
to the left of the line. Press cursor-down, and another symbol will 
appear underneath. Press cursor-down until all the desired lines 
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have an arrow to their left. Then press<RETURN>. If you make a 
mistake, just try again, or press cursor-up while defining. 

To copy these lines to another place, position the cursor at the 
place you want the lines to appear, and press <CTRL-L>. If you 
haven't defined any lines, this command will be ignored. Note 
that you can press this key more than once to make many copies 
of the lines. You may want to delete the defined lines after you 
move them. Press <CLEAR>. You will see the prompt "ERASE:". 
Press <D>. The lines will be deleted, just as if you used Delete 
line multiple times. 

A Mini-DOS 

The ESC key activates the mini-DOS. It lets you look at the direc¬ 
tory and scratch, rename, lock, or unlock files. When you press 
<ESC>, you will see: 

Sirectory,Hock,fflnlock,Qena«e,Scratch? 

Press the appropriate key. For all except the directory, you will 
need to enter a filename. The cursor, a half box, will be at the top 
of the screen. The only editing key you can use here is backspace. 

Remember that you can abort any time before pressing 
<RETURN> by pressing the logo key. While the directory is 
listed, you can press <ESC> again to keep the directory on the 
screen while you use one of the other functions. You can also 
press [SELECT] (see later) to save or recall a file while looking at 
the directory. If you get an error message at the top of the screen, 
check the disk and your entry and try again. 

For the Record . . . 

To save or recall a document, press [SELECT]. The screen will 
display: 

gave or Hecal 1 

Press the appropriate key, enter the filename, and the document 
will either be stored or retrieved. If you Recall a document, it loads 
starting at the line the cursor is on. This lets you add text to a 
document. Press START twice to home the cursor to the start of 
the text. If you get an error message, check to see you have the 
right disk, consult the DOS Manual, and try again. Remember that 
your filename must start with a capital letter and be followed by 
up to seven capital letters or numbers. You can optionally put a 
three-character extension on the file if you separate it with a 
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period, for example; EDITOR. DOC, DRAFT3.CGB, DUNGEON. 
MAR etc. You should not enter the "D:" prefix. 

Printer a la Mode 

Different printers offer special print densities and formats such as 
boldface, underlining, super- and subscripts, double-width, 
condensed, proportional spacing, etc. To underline a word or 
phrase, enclose it in <CTRL-brackets>. In other words, 
<CTRL-,> is underlining on, and <CTRL-.> is underlining off. 
Underlining works only on the 825 printer. If you have GRAF- 
TRAX installed in your MX-80, underlining produces italics. 

The following is an advanced technique. You can define up 
to ten special characters and print them at any spot in your text. 

To define a character, set up a format line (see the discussion of 
format lines, below) with <CTRL-F> and enter your definitions 
such as 1 = 123:2 = 125:3 = 27, etc. You can then output the CHR$ 
code of the defined characters by embedding a caret (" A ") in your 
text, followed by the number (for example, a 4).. If you don't put a 
number after it, a caret will print; otherwise, the character associ¬ 
ated with the number (0-9) will be output. You can also output 
ASCII characters from within a format line with the "as" format 
command. For example, "as27:asl8" will activate proportional 
spacing on the 825 printer. Use "as27:as69" for emphasized mode 
on the MX-80. 

Formatting Text 

Since you are typing in the raw text, with no margins or line 
breaks, how does the computer print a nice formatted page? The 
computer assumes a left margin of 5, a right margin of 75, single 
spacing, a page length of 66, and 50 lines to be printed per page. 
You can change these default values with a format line. 

A format line is like an embedded command line. The line 
starts with a format character to prevent the line from being 
printed out. To get the format character, press <CTRL-F>. You 
should get a right-pointed wedge. Then type in your commands. 
All commands are two lowercase letters, usually followed by a 
number. You can put multiple commands on the same line if you 
separate them with colons. For example, the following line: 

►lHie:rM70:sp2* 

will set the left margin to ten, the right margin to 70, and line 
spacing to two. Here is an explanation of each formatting 
command. Also see Table 2 for quick reference. 
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Note that n represents a number, with no space between the 
command and the number. No real error-checking is performed on the 
number. 

as n Sends byte n to printer. 

cm: Comment line. You can type one screen line of 

comments. They will not be printed to the printer. They 
are just for your convenience. 

cn« Centering. If n = 1, then centering will be on, and all 
following lines will be centered until reset by cnO. If 
n = 0, then centering is turned off. 
fp Forced paging. Normally, the printer will page, or go on 
to the next page, when the number of lines printed 
equals your lines per page (lp), which defaults to 50. 
Forced paging pages to the next page, regardless. 

Imn n = left margin, which should be less than the right 

margin. 

Inn Prints n blank lines. 

lpn Sets lines per page to n — n should be less than the page 
length, to allow some blank space at the bottom of each 
page. 

nf: filename Will chain to next specified file, permitting a docu¬ 

ment to be split up into many parts. The nf insures that 
they will all print as one big file. The formatting 
commands carry over to each file, 
pin Sets the page length, which is almost always (and 
defaults to) 66. 

rmn n = right margin, which should be less than the 

maximum width and greater than the left margin, 
spn n = 1, single spacing; n = 2, double spacing; n = 3, triple 
spacing; etc. 

Start the Presses 

To print your document, press <CTRL-P>. You should see: 

PRINT: CC/FJ 

To start printing, just press <RETURN>. The printer head 
should be positioned at about the start of the page. The C/F indi¬ 
cates any selected option. C stands for Continuous Print. You 
would use this option with pinfeed or roll paper. It will automati¬ 
cally page to the start of each sheet. If you do not select contin¬ 
uous print, the computer will beep at the end of each page and 
pause. You should put in another sheet of paper and press 
<RETURN> to continue printing. 
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Note that pressing a key any other time during printing will 
abort the printout. The F option stands for Fast Printout. It will 
blank the screen during the printing, increasing printing speed 
better than 30 percent. Some people, however, find a blank screen 
disconcerting. To select one of the options, press either C or E The 
appropriate letter will light up and flash. To reset the option 
(cancel it), press the key again. Press < RETURN> when you are 
ready to print the text. 

Customizing Scriptor 

The program is fairly well-structured, with separate sections 
for all functions. The control keys are executed via a branching 
IF/THEN "bucket brigade." Just patch in your own command 
where desired. Some functions you may want to add are block 
transfer (performs both block insert and block delete). Search and 
Replace, Insert from Disk, and simple data merge. Machine 
language programmers may want to try their hand at speeding 
up certain aspects of the program, such as Insert Line, Delete 
Line, and even Print Text. 

Here are some other useful subroutines. GOSUB 540 returns 
the number of lines the user has typed (not necessarily the 
maximum number of lines) in EOT. GOSUB 600 clears the top line 
of the screen and positions the cursor at the first character, ready 
for a message. GOSUB 460 performs error-checking and adjust¬ 
ments on the X-Y position of the cursor. GOSUB 2650 returns an 
adjusted (uppercase if AL = 1, no cursor controls, etc.) character in 
A. GOSUB 2730 is a pseudo-INPUT routine that returns IN$. Vari¬ 
able MX controls the maximum number of characters. 

TRAP 2170 will vector errors to an I/O Error message. There 
are two reentry points for the editor proper: GOTO 650, which 
clears and "refreshes" the screen, and GOTO 680, which just 
adjusts the cursor and continues keyboard entry (faster). 

Primary variables are: CL—the pointer to the top line (from 
0-#lines) of the screen; X—the horizontal position of the cursor 
2-39; Y—the vertical position of the cursor on the screen, 1-23; 

TX$—the string that contains all the text and is organized in 38 
character substrings, one for each line; T$ and T—"temporary 
variables"; A—usually a keystroke typed; SCR—the address of 
the screen memory origin; NL—number of defined lines; 

FRL—the starting line in text of the defined lines; RL—the 
starting line in TX$ for reserved lines (the buffer). Several 
constants are Q0, Ql, Q23—which return 0,1, or 23 (saves 
memory); L2 = 38; L = 40; B$ is 38 null (CHR$(0)) characters. 
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Changes for the 800XL and 1200X 

Scriptor as originally printed would not run on an XL model. 
The modifications for the 1200XL are contained in Program 3 
and for the 800XL in Program 4. Simply substitute and/or add 
the lines to the main* listing, Program 1. 

There is another problem which might result from running 
Scriptor on an XL. Scriptor, as mentioned before, deletes part 
of itself. The deletion of lines will sometimes cause Atari 
BASIC to lock up. Be sure to include line 7000, even though it 
is just a REM statement: line 7000 will help prevent the lock-up. 

If Scriptor still locks up, you will have to experiment. Try 
adding a REM statement to the end of one of the lines at the 
end of the program (6000-6060). What you are trying to do is 
change the length of the lines being deleted. 


Table 1. Editing Commands 

Control Keys 

A Advance one screen forward 
B Back up one screen 
D Define lines 
F Print format character 
G Go to specified line 
K Clear all tab settings 
L Duplicate defined lines 
P Print document 
Q Quit program 
SHIFT-INSERT 
SHIFT-DELETE 
CTRL-INSERT 
CTRL-DELETE 
CLEAR 


CAPS/LOWR 

ESC 

Cursor keys 

[OPTION] 

[SELECT] 

[START] 

[CTRL-,] 

[CTRL-.] 


Insert a line 
Delete a line 
Insert a space 
Delete a character 
Erase: 

A = All R = Remainder 
D = Defined lines 
Upper-or lowercase 
Mini-DOS 

Moves cursor with two-way scrolling 

Nondestructive carriage return 

Save or Recall text 

"Home" cursor 

Underlining on 

Underlining off 

Print special character 
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Table 2. Formatting Commands 


Command 
as n 

cm:xxxx 

can 

fp 

lm« 

ln« 

lp« 

nhfile 

pin 

rm n 

sp n 


Description 

Send ASCII character n to printer 

Comment line 

Centering: 1 = on, 0 = off 

Forced Paging 

Set left margin to n 

Do n linefeeds 

Set lines per page to n 

Link to Next File 

Page length 

Set right margin to n 

Set line spacing 


OOff 

5 

50 

66 

75 

1 (single) 


Program 1. Scriptor 

100 rem :>jagiEMEEinsMggiiggangs 

110 GOTO 5000 

455 RUN "D:SCRIPTOR" 

460 PF=Q0:IF X<2 THEN X=39:Y=Y-Q1 

470 IF X >39 THEN X = 2:Y = Y + Q1 

480 IF Y< Q1 THEN Y = Q1:CL = CL —Q1:PF = Q1 

490 IF Y >Q23 THEN Y = Q23:CL = CL + Q1:PF=Q1 

500 IF CL< Q0 THEN CL = Q0 

510 IF CLXMXL-Q23) THEN CL=MXL-Q23 

520 IF PF=Q0 THEN RETURN 

530 L0C=CL*L2+Q1:T=USR <SCRZAP,ADR(TX»(LOC))) 

:RETURN 

540 REM *** FIND END OF TEXT 
550 P=ADR(TX$):T=P+RL*L2-Q1 
560 A=USR(EDCOM,T,P,2):A=A-P 
570 LC=A:EOT=INT(A/L2) 

580 RETURN 

590 REM *** ERASE TOP LINE 

600 COLOR 32:PLOT Q1,Q0:DRAWTO L2,Q0:PLOT Q1 
,Q0:RETURN 

610 REM *** START OF EDITOR 

611 MXL=INT(FRE<Q0)/40)-25:RL=MXL+1 

612 DIM TX*((MXL+Q23)*L2):? CHR$<125>; 

613 TXt = CHR$(Q0) : TX$ < (MXL + D23) *L2)=TX$:TX*(2 
’) =TX$ 

620 SCR=PEEK(88)+256*PEEK(89):POKE 559,46:PO 
KE 842,12 

630 X=2:Y=Q1:CL=Q0:POKE 702,Q0 
640 REM *** ENTRY FOR EACH PAGE 
650 POKE 54286,192 
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655 POSITION Q 0,Q 0:? "C7 SPflCESIScriptor Wor 
d ProcessorCOLOR 32:DRAWT0 L2,Q0:PLOT 
32, Q0 

660 L0C=CL*L2+Q1:T=USR(SCRZAP,ADR(TX*(LOC)>) 
670 IF TF THEN TF=Q0:GOTO 810 

675 IF FIRST = Q0 THEN POSITION 31,Q0:? M X L; " 
Free";:TF=Q1:FIRST=Q1 
680 POKE 53248,X*4+44 
690 IF Y=OY THEN 740 
710 ADJ0Y=0Y*4+16:ADJY=Y*4+16 

720 A=USR(CURSOR,PMB+ADJOY,Q0>:A=USR(CURSOR, 
PMB+ADJY,15):OY=Y 

740 K=PEEK(53279):IF K<7 THEN 2570 
770 T=PEEK(764):IF T=255 OR T=39 OR T=154 TH 
EN 740 

775 IF T=166 THEN POKE 764,255:G0T0 1570 
790 POKE 694,Q0:A=USR(GCHAR) 

800 IF TF THEN 650 

810 IF A< 32 OR A >122 OR A = 96 THEN 880 
820 A = A — 3 2 * (A<96) 

830 POKE SCR+X+L*Y,A 
840 LOC=(CL+Y-Q1)*L2+X-Q1 
850 TX$(LOC,LOC)=CHR$(A) 

860 X=X+Q1-BF:GOSUB 460 
870 BF=Q0:GOTO 680 
880 IF AO 155 THEN 910 

890 GOSUB 264 0:POKE SCR + X+ L#Y,94:T X $ (LOC,LOC 
+L2-X+Q1)= B$:X=2:Y=Y+1 

900 TX $(LOC,LOC)=CHR$(94):GOSUB 460:GOTO 650 

910 IF A=6 THEN A=127:GOTO 830 

920 IF A=28 THEN Y=Y-Q1:GOSUB 460:GOTO 680 

930 IF A=29 THEN Y=Y+Q1:GOSUB 460:GOTO 680 

940 IF A=30 THEN X=X-Ql:GOSUB 460:GOTO 680 

950 IF A=96 THEN A=74:G0T0 830 

960 IF A=31 THEN X=X+Ql:GOSUB 460:GOTO 680 

970 IF A=Q0 THEN A=72:G0T0 830 

980 IF A=126 THEN X=X-Ql:GOSUB 460:A=B0:BF=Q 
1:GOTO 830 

1040 IF A<>255 THEN 1070 

1050 A = USR(EDCOM,ADR (TXt( (CL+Y-Q1) HL2+X-Q1) ) 
,ADR(TX$(MXL*L2+37)),Q0) 

1060 GOTO 650 

1070 IF A< >254 THEN 1100 

1080 A=USR(EDCOM,ADR( T X $ ((CL+Y-Q1)*L2+X-Q1)) 
,ADR(TXt(MXL*L2+37)),Q1) 

1090 GOTO 650 

1100 IF A< >157 THEN 1160 

1110 GOSUB 590:? "Insert Line"; 

1120 GOSUB 540:POKE 559,Q0 
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1130 FOR I=EOT+(EOT<MXL) TO CL+Y STEP -Q1:T* 
= TX*( (I-Ql ) *L2+Q1, I*L2> :TX$(I*L2+Q1, I *L 
2+L2 )= T$:NEXT I 

1140 T=(CL + Y —Q1) * L2:T X $(T + Ql,T + L2)= B* 

1150 X=2:POKE 559,46:G0T0 650 

1160 IF A=159 THEN GOSUB 590:? "Tab set at " 

;X-Q1:TF=Q1:TB$(X-Ql,X-Ql)="*":GOTO 740 
1170 IF A= 1 58 THEN GOSUB 590:? "Tab cleared 
at X-Ql:TF = Q1:TB$ < X-Ql, X-Ql)=CHR$ <Q0) 

:GOTO 740 

1180 IF A<>127 THEN 1230 

1190 IF TB$=B$ THEN GOSUB 590:? "No tabs set 
":TF=Q1:GOTO 740 

1200 FOR I=X TO L2:IF TB$(I,I>=CHR*<Q0) THEN 
NEXT I:T=L2:X=2:Y=Y+Q1:GOSUB 460:GOTO 
1200 

1210 T=I:I=L2:NEXT I 

1220 X = T + Q1:GOTO 680 

1230 IF A<>156 THEN 1290 

1240 GOSUB 590:? "Delete Line”; 

1250 GOSUB 540:POKE 559,Q0 

1260 FOR I=CL+Y—Q1 TO EOT:T$=TX$((I+Ql)#L2 + Q 
1,(1+2)*L2):TX$(I*L2+Q1,I *L2 + L2)=T$:NEX 
T I 

1270 T=E0T*L2:TX$(T+Ql,T+L2)=B$ 

1280 X=2:POKE 559,46:GOTO 650 

1290 IF A=11 THEN GOSUB 590:TF=Q1:? "Clear a 
11 tabs":TB$=Bt:GOTO 740 
1320 IF A<>125 THEN 1450 
1330 GOSUB 590:? "Erase: " ; 

1340 GOSUB 2650 

1350 IF A=155 THEN 650 

1355 IF A< >65 THEN 1370 

1360 ? "0D - ";:GOSUB 2540 

1365 GOTO 613 

1370 IF A< >82 THEN 1380 

1372 ? "Remainder - GOSUB 2540:GOSUB 2640 

1375 TX$(LOC)= CHR$(Q0):TX$((MXL+Q23)*L2)=CHR 
* (Q0) :TX$(LOC + Q1)=TX$(LOC) :GOTO 650 
1380 IF A<>68 OR NL=-Q1 THEN 650 
1400 ? "Defined Lines - "; 

1410 GOSUB 2540:POKE 559,Q0;GOSUB 540 
1420 FOR I=FRL —Q1 TO EOT:T$ = TXt ( (I+NL + Q1)*L2 
+ Q1, (I+NL + 2) *L2> :TX$(I*L2 + Q1, I*L2 + L2> =T 
i:NEXT I 

1430 FOR I=EOT —NL TO EOT:TX$(I#L2 + Q1, I *L2 + L2 
)=B*:NEXT I:NL=-Q1 
1440 POKE 559,46:GOTO 650 
1450 IF A< >4 THEN 1810 
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1460 

1470 

1480 

1490 

1500 

1510 

1520 

1 530 
1540 
1550 

1570 

1 580 
1590 
1595 


GOSUB 590:? "Define Lines"; 

FL=CL:FR=Y:FRL=FL+FR:NL=Q0 
POKE SCR+l+L* (FR + NL) ,223 

LOC=CL*L2+(FR+NL-Q1)*L2:T=RL*L2+NL*L2:T 
* = TX$(L0C+Q1,L0C+L2):TX$(T+Q1,T + L2)=TS 
GOSUB 2650 

IF A = 29 AND FR+NL<22 THEN NL=NL+Q1:GOTO 
1480 

IF A=28 AND FR+NL>FR THEN POKE SCR+l+L* 
(FR+NL),Q0:NL=NL-Q1 
IF A=155 THEN 1550 
BOTO 1500 

FOR I= 00 TO NL:POKE SCR+l+L* (FR+I ) ,Q0:N 
EXT I:GOTO 650 

POKE 53248,Q0:PRINT CHR$(125):POSITION 

7 "{DOWN)CTAB)<3 SPACES>Contro1 Keys:" 

? “E= Advance Page E= Page Back" 

? "G^Define Lines B=Print format char. 


1610 

1620 

1630 

1635 

1640 

1650 

1660 

1670 

1680 

1700 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 


? " [5= Kill all tabs QtLine Duplicate" 

? "E=Print text(4 SPACESI E=Quit" 

? "Atari Key=Cancel Command":? 

? "~x Print special character" 

? "{DOWN? H»HJ:1:H Erase: ITU Eefined Lin 
e s”:POKE 85,16:? "Eemainder" 

? " m]ami:n Non-destructive CR" 

? " {D0WN> IBlllgll Filer: Eecall or 3ave" 

? "{DOWN ) 1 n -’Home’ cursor. Press 

twice to go to start of text." 

? " fDOWN) rreTi*1 Mini DOS" 

? " {DOWN)Press EMUEC ■ ":A = USR(BCHAR) :GO 

TO 650 

IF A< >12 THEN 19 10 

GOSUB 590:? "Duplicate defined lines"; 
IF N L < Q 0 THEN 650 
FOR I=Q0 TO NL 

IF CL+Y+I-Q1>MXL THEN I=NL:GOTO 1900 
T=RL*L2+I*L2 
T2 = CL *L2+(Y+I—Q1) *L2 
T$ = TX$< T + Ql,T + L2) 

TX$(T2+Q1,T2+L2)=T$ 

NEXT I :Y = Y + NL + Q1:GOSUB 460:GOTO 650 
IF A< >27 THEN 2400 

POSITION 2,00:7' " Ei rectory, do c k , tLn lock, 

Eename, Scratch?" 

GOSUB 2650:J=A 

IF J< >76 AND J < >85 AND J<>83 AND J<>68 
AND JO-82 THEN 1930 
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1950 IF JOflSCC'D") THEN 2020 
1960 ? CHR$(125):POKE 53248,Q0 
1970 TRAP 2170: OF'EN # 2,6,00 , " D : * . * ” 

1980v INPUT 42,T$:? T$:IF LEN(T*)<17 THEN 200 


1990 

2000 


2010 


2040 

2050 

2060 

2070 

2080 

2090 

2100 


GOTO 1980 

CLOSE #2:TRAP 40000:GOSUB 590:? "Pi 
a key. . B" ; :0K=1:GOSUB 2650: IF A = 27 
1920 

GOTO 650 
GOSUB 590:J=A 

IF J =76 THEN ? " ■1 I I'M I — 

IF J =83 THEN ? " 3SHEEI3IJ = 33 

IF J =85 THEN ? " ■UrU.MTO -" : : J = 36 

IF J = ASC ( "R" ) THEN 2130 


? "Enter Filename:"; 

MX=12:AL=Q1:GOSUB 2720 

T$ < 3)=IN$:T$(1,2)=”D:":POSITION 10,Q0:? 
DEL* (1,15); 

TRAP 2170:IF J=33 THEN POSITION 24,Q0:G 
OSUB 2540:COLOR 32:PLOT 24,Q0:DRAWTO 38 


2110 TRAP 2170:XIO J,#2,Q0,Q0,T$:TRAP 40000 
2120 TRAP 40000:GOTO 650 

2130 GOSUB 590:? " r-)3T:1Ila >Current name? " ;:MX 
=12:GOSUB 2720:T*(3)=IN$:T$(1,2)="D:" 
2140 GOSUB 590:? " 1:1^7 r:lSla > New name? ";:MX=12: 

GOSUB 2720:T$(LEN(T$)+Q1)=",":T$< LEN <T$ 
)+Q1)=IN$ 

2150 TRAP 2170:XIO 32,#2,00,Q0,T $ :TRAP 40000 
2160 GOTO 650 

2170 TRAP 2170:POKE 559,46:CLOSE #2:CLOSE #3 
:GOSUB 590:? CHR$ < 253);"I/O Error #";PE 
EK(195);:TF=Q1:GOTO 740 
2180 GOSUB 590:? "gave or Eecall"; 

2190 ICC0M=834+48:ICBAL=ICCOM+2:ICBLL=ICBAL+ 

4:ICSTAT=835+48:REM I0CB43 
2200 GOSUB 2650:IF A=155 THEN 1380 
2210 IF AOASCC’S") THEN 2290 

2220 GOSUB 600:? "SAVE:C3 SPACES)File name? 

"; :MX = 12:GOSUB 2720:T$(3> =IN*:T$(1,2)=” 
D: " :GOSUB 550 

2230 POSITION 5,0:? DEL$<1,12);"INS"; 

2232 TRAP 223B:0PEN #3,4,Q0,T$:CLOSE 43:G0SU 

B 600:? "tnaaSIHl: ”; IN$; ” - ”;: GOSUB 2 

540 

2233 GOSUB 600:? "REPLACING ";IN*:G0T0 2240 
2238 CLOSE #3:IF PEEK(195)<>170 THEN 2170 
2240 TRAP 2170: OF'EN #3,8,Q0,T$ 
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2250 POKE ICCOM, 1 1 :P = ADR(TX*> :POKE ICBAL + Q1, 
INT(P/256) :POKE I CBAL,P-(I NT <P/256) *256 
) 

2260 LN=(CL+EOT+Q1)*L2:POKE ICBLL + Q1, I NT(LN/ 
256) :POKE I CELL,LN-(INT(LN/256)*256) 
2270 A = USR(ADR(CIO*),48):ERR=PEEK(ICSTAT):PO 
KE 195,ERR: IF ERR >1 THEN 2170 
2280 CLOSE #3:TRAP 40000:POKE 53279,Q0:GOTO 
650 

2290 IF A< >ASC("R”) THEN 650 
2300 L K = Q 0 

2310 GOSUB 590:? "RECALL: Filename? ";:MX=12 
:GOSUB 2720:T$(3)=IN*:T$(1,2)="D:" 

2315 LOC=(CL+Y—Q1)*L2+Q1:TX$(LOC)= CHR*(Q0):T 
X* ((MXL+Q23)*L2)=CHR*(Q0):TX*(LOC+Ql)=T 
X*(LOC) 

2320 TRAP 2170:POSITION 8,0:? DEL*(1,8);"ING 
";:OPEN #3,4,Q0,T* 

2330 ICC0M=B34+4B:ICBAL=ICCOM+2:ICBLL=ICBAL+ 

4 

2340 POKE ICCOM,5:P=ADR(TX*((CL+Y-Q1)*L2+Q1) 
):POKE ICBAL+Q1,INT(P/256):POKE ICBAL,P 
- ( INT (P/256) *256) 

2350 LN=(MXL-(CL+Y-Q1))*L2:POKE ICBLL+Q1,INT 
(LN/256) :POKE I CELL,LN-(I NT(LN/256) *256 
) 

2360 A=USR(ADR(CIO$),48):ERR=PEEK(ICSTAT):PO 
KE 195, ERR: IF ERR> 1 AND ERR0136 THEN 2 
1 70 

2370 CLOSE #3:POKE 53279,D0:TRAP 40000:IF LK 
=Q0 THEN 650 

2380 CL=Q0:Y=Q1:X=2:T=USR(SCRZAP,ADR(TX*)) 

2390 GOTO 2950 

2400 IF A< >17 THEN 2410 

2403 GOSUB 600:? " fiTT¥Wi : GOSUB 2540 

2405 POKE 53277,00:POKE 53248,00:POKE 53774, 
192:POKE 16,192:GRAPHICS Q0:POKE 702,64 
: END 

2410 IF A=16 THEN 2840 

2420 IF A=01 THEN CL=CL+Q23:Y=Q1:GOSUB 460:G 
OTO 650 

2430 IF A=2 THEN CL=CL-Q23:Y=Q1:GOSUB 460:GO 
TO 650 

2500 GOTO 640 

2540 ? "Are you sure?”;:GOSUB 2650:IF 1-(A=1 
21 OR A=89) THEN POP :GOTO 650 
2550 RETURN 

2570 REM *** Handle console keys 

2580 POKE 764,130:A=USR(GCHAR):POKE 77,00 
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2590 IF K=5 THEN 2180 

2600 IF K=3 THEN X=2:Y=Y+Q1:GOSUB 460:GOTO 6 
80 

2610 IF K=6 AND Y=Q1 AND X=2 THEN CL=Q0:X=2: 
GOTO 650 

2620 IF K = 6 THEN Y = Q1:X = 2:GOTO 650 
2630 GOTO 740 

2640 LOC=(CL+Y-01)*L2+X-Q1:RETURN 
2650 T = Q0:REM GET A KEY 

2660 IF PEEK(20)>20 THEN T=Ql-T:POKE 20,O0:P 
OKE 7 55,T *2 

2665 IF OK THEN IF PEEK(53279)=5 THEN POKE 7 
55,2:POKE 559,46:P0P :POKE 764,130:A=US 

R (GCHAR) :OK = 0:GOTO 2180 
2670 IF PEEK(764)=255 THEN 2660 
2680 IF PEEK(764)=154 THEN 2660 

2690 IF PEEK(764)=39 THEN POKE 764,255:SOUND 
00,5,12,4:POP :FOR T=1 TO 5:NEXT T:SOU 
ND 00,Q0,00,00:GOSUB 2710:GOTO 650 
2700 TRAP 2700:A=USR(GCHAR):TRAP 40000:IF A> 
96 AND A <123 THEN A=A-32*AL 
2710 POKE 755,2:POKE 559,46:RETURN 
2720 REM *** PSEUDO-INPUT 
2730 IN$="" 

2740 ? CHR$(21);CHR$(30);:GOSUB 2650:? CHR*( 
32);CHR$(30); 

2750 IF A=155 THEN 2820 

2760 IF A=126 AND LEN(IN*>>1 THEN IN*=IN*(1, 
LEN(IN*)-01):? CHR*(A);:GOTO 2740 
2770 IF A=126 AND LEN(IN*)=G1 THEN ? CHR*(A) 

;:GOTO 2730 

2780 IF LEN(IN*)=MX THEN 2740 

2790 IF (A< 32 OR A>90) AND A<96 OR A>122 THE 
N 2740 

2800 ? CHR*(A);:IN*(LEN(IN*)+Q1)=CHR*(A) 

2810 GOTO 2740 

2820 AL=Q1:IF IN*="" THEN POP :GOTO 650 
2830 RETURN 

2840 REM *** Printer Output 
2850 GOSUB 590:? "PRINT: (C/F)” 

2860 CON=Q0:F=Q0:FOR 1=00 TO 9:PC(I)=48+I:NE 
XT I 

2870 GOSUB 2650:IF A=155 THEN 2910 

2880 IF A = 67 THEN CON=1-CON:POSITI ON 10,00:? 

CHR*(67+128*C0N);:GOTO 2870 
2890 IF A=70 THEN F=1-F:POSITION 12,00:? CHR 
* (70+128*F) :GOTO 2870 
2900 GOTO 2870 

2910 TRAP 2170:OPEN #2,8,00, "P : " 
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2920 BOSUB 590:? "Printing..." 

2930 LM=5:RM=75:CN=Q0:NL = 00 

2940 SP=1:PL=66:LP=50:C=LM 

2950 GOSUB 540: IF F=1 THEN POKE 559,(30 

2960 FOR P=Q1 TO LC 

2970 IF PEEK(764)<255 THEN GOSUB 2650:POP :G 
OTO 3140 

2980 Z = ASC(TX$(P) ) 

2990 IF CN=Q1 AND Z<>127 THEN 3460 
3000 IF Z < 6 2 OR (Z >96 AND Z<123) THEN 3070 
3010 IF Z = 94 THEN GOSUB 3210:GOSUB 3150:GOTO 
3120 

3020 IF Z = 72 THEN UL = Q1:PUT #2,27:PUT #2,52: 
GOTO 3120 

3030 IF Z = 74 THEN UL = Q0:PUT #2,27:PUT #2,53: 
GOTO 3120 

3040 T=ASC(TX*(P+01)):IF Z=62 AND T>15 AND T 
<26 THEN PUT #2,PC(T-16):P=P+1:GOTO 312 
0 

3060 IF Z =127 THEN 3230 

3070 IF C=LM THEN FOR I=Q1 TO LM:PUT #2,32:N 
EXT I 
3080 C=C+1 

3090 PUT #2, Z + 32* ( Z<64> 

3100 T=Q0:IF RM—0=10 THEN 3110 

3105 FOR 1=1 TO LEN(BRK$):IF Z+32<>ASC(BRK$( 
I,I)) THEN NEXT I:GOTO 3110 
3107 TT=ASC(TX$(P+Ql>):IF TT=Q0 OR TT=94 OR 
Z = 00 OR Z = 13 THEN I=LEN(BRK*) :NEXT I:GO 
SUB 3150:T=01 

3110 IF T=01 AND ASC(TX$(P+Q1))=00 THEN P=P+ 
01: IF P< LC THEN 3110 
3120 NEXT P 
3130 GOSUB 3150 

3140 PRINT #2:CLOSE #2:POKE 559,46:TRAP 4000 
0:GOTO 650 

3150 FOR 1=01 TO SP: F'RINT #2:NEXT I 
3160 C=LM:NL=NL+SP:IF CN<00 THEN CN=B1 
3170 IF NL<LP THEN RETURN 

3180 IF CDN=D0 THEN FOR I=Q0 TO 255 STEP 17: 

SOUND 00,255-I, 10, 15-INT(I/ 17) :NEXT I:T 
=USR(GCHAR):GOTO 3200 
3190 FOR 1=01 TO PL—LP:PRINT #2:NEXT I 
3200 NL=00:RETURN 

3210 REM *##: SKIP TRAILING BLANKS 

3220 T=INT(P/L2):P=(T+Bl—(P/L2=T))#L2:RETURN 

3230 REM Handle special Formatting 
3240 P=P+B1 
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3250 

3260 

3270 


3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 


3415 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

5000 

5010 

5020 

5030 

5040 


CMt=TX$(P,P+01):T*="" 

FOR I=P+2 TO LC 

IF TX*(I,I)>=CHR*<16) AND TX*(I,I)<CHR* 
(26) THEN T*(LEN(T$)+Q1)= CHR*<ASC<TX$(I 
,I))+32):NEXT I 

V=Q0:P=I:TRAP 3290:V = VAL(T*) 

TRAP 2170:IF CHt="cn" THEN CN = V 


IF CM*=” 

50:NEXT 
IF CM*=" 

IF CM*="p1" 
IF CM*= 11 1 p " 
IF CM*="lli 
IF CMt="r« 


THEN FOR J=Q1 TO V:GOSUB 31 


THEN SP = V 
THEN PL=V 
THEN LP=V 

AND V>0 THEN LM=V:C=V 
AND V>0 THEN RM=V 
IF CM*="Tp" THEN GOSUB 31B0:POKE 559,46 
— 46 * F 

IF CM*=”as“ THEN PUT #2,V 

IF CMt =,, cm" THEN FOR I=P TO P + 79: IF TX* 
( I , I ) < > ,,A ” THEN NEXT I:I = I-Q1 
IF CM*="cm" THEN P=I+Ql:GOTO 3450 
IF CM$<>"nf" THEN 3430 

T$="D:":FOR I=Q0 TO 11:Z=ASC(TX*(P+I,P+ 
I)): IF Z < >94 AND P+I<=LC THEN T*(3+I)=C 
HR$(Z+32*(Z<63)>:NEXT I 

T X $(Q1)= CHR*(Q0):TX*( (MXL + Q23) *L2)= CHR* 
(00) :T X $(2)= TX* 


POKE 559,46:GOSUB 590:? "Printing ";T$: 
LK=Q1:CL=Q0:Y=Q1:GOTO 2320 
IF ASC(CM$)>15 AND ASC(CM*)<26 THEN PC( 
ASC(CM*)-16)=V 

IF TX* (P, P) < AND P< LC THEN 3240 

GOSUB 3220:P=P+Q1:GOTO 2970 
REM *** CENTER STRING 

LN=Q0:FOR I=P TO P+79:IF TX*(I,I)<>" 
THEN LN=LN+Q1:NEXT I 

WIDTH=RM—LM:UL=Q0:IF TXt(P,P)=CHR$(72) 
THEN UL = Q1 

FOR I=Q1 TO (WIDTH-LN)/2+LM:PUT #2,32:N 
EXT I 

C=C+I;CN=-Q1:GOTO 2990 
REM + + 

GRAPHICS 17:SETCOLOR 4,1,10 
D L = P E E K(560)+256*PEEK(561 )+4:POKE DL + 5, 
7:POKE DL+10,7:POKE DL+14,7 
POSITION 6,4:? # 6; " H3B3"i33iI3" : POSITION 3 
, 7 : ? #6 ; " 

? #6:? #6;" " ;CHR*(136) ;CHR*(227> ;CHR*( 

CHR*(152);CHR*(147) 
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5045 

5050 

5070 


5080 

5090 

5100 


5110 

5120 

5130 

5140 

5150 

5160 

5180 

5250 


5290 


5300 

5310 


5330 

5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
54 2 0 
5430 
5440 


? #6:? #6;" 14 SPACES] compute <A3- public 
HR*( 14) ; 

? #6:? #6 ; " {3 SPACES]-CHARLES BRANNON" 
Q0=0:Q1=1:Q23=23:RL=MXL+B1:SCRZAP=16B0: 
CURS0R=1739:EDC0M=1536:AL=1:L2=38:GCHAR 
=1303:SND=1331 

DIM T$(79) , IN* ( 20 ) ,B*(L2) ,TB$(L2) ,CM* <2 
),BRK*(8),PC(9),DEL*(20),CIO*(7) 

B*=CHR*(Q0):B*(L2)=B*:B*(2)=B*:DEL*=CHR 
* (254) :DEL*(20)=DEL*:DEL*(2)=DEL* 

TB* = B*:BRK*=" , . !?; :-":CI0*="hhh":CI 0*( 
4)=CHR*(170):CIO*(5)="LV”:CIO*(7)=CHR*( 
228) 

OPEN #1,4,Q0," K:" 

T = Q 0:OY = Q0:CL=Q0:L=4 0:NL = -Q1 

PMB=PEEK(106)-8:POKE 559,46:POKE 53248, 

Q0 

POKE 54279,PMB:POKE 53277,3 

PMB = PMB#256 + 512:POKE 704,56 

FOR I=Q0 TO 255:POKE FMB+I,Q0:POKE 708+ 

3*RND(Q0),PEEK(53770):NEXT I 

SETCOLOR 4,8,2 

FOR 1=0 TO 70:READ A:POKE 1280+I,A:CHEC 
KSUM=CHECKSUM+A:POKE 70B+3*RND(Q0),PEEK 
(53770):NEXT I 

FOR 1=0 TO 247:READ A:POKE 1536+1,A:CHE 
CKSUM=CHECKSUM+A:POKE 708+3*RND(Q0),PEE 
K (53770) :NEXT I 

IF CHECKSUM<>47765 THEN PRINT CHR*(253) 

;"Error in DATA statements.END 
DATA 72,138,72,169,10,162,2,141,10,212, 
141,24,208,141,26,208,142,23,208,104,17 
0,104,64 

DATA 104,173,252,2,201,255,240,249,133, 
124,162,255,142,252,2,32,51,5,32,254,24 
6, 133,212, 169,0, 133,213,96 

DATA 162,0,142,0,210,162,15,142,1,210,1 

60,0,234,200,208,252,202,16,244,96 

DATA 216,104,104,133,213,104 

DATA 133,212,104,133,204,104 

DATA 133,203,104,104,208,47 

DATA 32,109,6,165,205,76 

DATA 43,6,160,0,177,205 

DATA 200,145,205,198,205,165 

DATA 205,201,255,208,2,198 

DATA 206,197,212,208,235,165 

DATA 206,197,213,208,229,160 

DATA 0,177,205,200,145,205 

DATA 136,152,145,205,96,201 


121 







3 


Applications and Education 


5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

6000 

6010 


6050 

6060 


DATA 1,240,3,76,221,6 
DATA 32,109,6,76,91,6 
DATA 160,1,177,212,136,145 
DATA 212,230,212,208,2,230 
DATA 213,165,213,197,206,208 
DATA 237,165,212,197,205,208 
DATA 231,169,0,168,145,212 
DATA 96,165,212,133,205,165 
DATA 213,133,206,160,0,177 
DATA 205,201,94,240,18,230 
DATA 205,208,2,230,206,165 
DATA 206,197,204,208,238,165 
DATA 205,197,203,208,232,96 
DATA 165,88,133,203,165,89 
DATA 133,204,104,104,133,206 
DATA 104,133,205^162^24,76 
DATA IBS,6, 160,0, 177,205 
DATA 200,200,145,203,136,192 
DATA 38,208,245,24,169,38 
DATA 101,205,133,205,144,2 
DATA 230,206,24,169,40,101 
DATA 203,133,203,144,2,230 
DATA 204,202,208,218,96,104 
DATA 104,133,204,104,133,203 
DATA 104, 168, 104, 145’, 203,200 
DATA 192,4,208,249,96,160 
DATA 0,177,212,208,20,198 
DATA 212, 165,212,201,255,203 
DATA 2,198,213,197,203,208 
DATA 238,165,213,197,204,203 
DATA 232,96 

GRAPHICS' 0:POKE 559,00:POKE 16,64:POKE 
53774,64 

FOR 1=5000 TO 5900 STEP 100:? CHR$(125) 

:POSITI ON 2,3:FOR J = I+90 TO I STEP -10: 
? J:NEXT J:? 110:? "CONT" 

POKE 712,PEEK(53770):POKE 842,13:POSITI 

ON 0,0:STOP 

POKE 842,12:NEXT I 

SETCOLOR 2,12,00:SETCOLOR 4,8.10:SETCOL 
OR 01,00,12:POKE 752,01 

POKE PEEK (560) +256*PEEK (561 ) +3, 194: POKE 
512,0:POKE 513,5 

? CHR$( 125) :? :? :FOR 1=6000 TO 6060 ST 

EP 10:? I:NEXT I:? ”G0T0610" :POSITI ON 0 

,0:POKE 842,13:STOP 
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Program 2. Scriptor Modification for 825 Printer 

Change these lines in Program 1 if you have an 825 printer. 

3020 IF Z = 72 THEN UL = Q1:PUT #2,15:60T0 3120 
3030 IF Z = 74 THEN UL = Q0:PUT #2,14:G0T0 3120 
3070 IF C=LM THEN PUT #2,14:F0R I=Q1 TO LM:P 
UT #2 ,32:NEXT I :PUT #2, 15*UL 

Program 3. Scriptor for 1200XL 

Change these lines in Program 1 if you have an Atari 1200XL. 

750 IF PEEK(732) THEN POKE 732,0:6OTO 1570 

5300 IF CHECKSUM*: >47596 THEN PRINT CHR$ (253) 
;"Error in DATA statements...”:END 
5320 DATA 104,173,252,2,201,255,240,249,133, 

124.162.255.142.252.2.32.51.5.32.89.242 
,133,212,169,0,133,213,96 

6000 GRAPHICS 0:P 0 K E 559,00:POKE 16,64:POKE 
53774,64:POKE 731,255 
7000 REM 

Program 4. Scriptor for 800XL 

Change these lines in Program 1 if you have an Atari 800XL. 

5300 IF CHECKSUM<>47543 THEN PRINT CHR*<253> 
j"Error in DATA statements ..."iEND 
5320 DATA 104,173,252,2,201,255,240,249,133, 

124.162.255.142.252.2.32.51.5.32.35.243 
,133,212,169,0,133,213,96 
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Supe rFont Plus 

John Slaby and Charles Brannon 


You can generate excellent game graphics by using ANTIC modes 4 and 
5. This program provides an ANTIC version of SuperFont. Requires 16K 
RAM. 

After typing in "SuperFont" (COMPUTE !'s First Book of Atari 
Graphics), I was very pleased. I couldn't imagine needing any 
additional functions or purchasing any font editor that could 
possibly improve upon it. Then I bought De Re Atari, and every¬ 
thing I had read previously in the Hardware Manual on ANTIC 
modes 4 and 5 fell into place. At the same time I realized that it 
was ANTIC mode 4 that allowed the great graphics in Caverns of 
Mars. I realized I could make some useful additions to the original 
program. Therefore, I offer SuperFont Plus. 

Charles Brannon stated in his article on SuperFont that it 
would be easy to expand the program, so I did. The additional 
commands are the ANTIC, PRINT, DATA, and Color Change. Of 
these, only the DATA and PRINT commands can be used along 
with the original version of Graphics modes 0,1, and 2. This 
expanded version is about 65 percent longer and, if you have only 
16K RAM, some manipulation will be required; but you can have 
an ANTIC version of SuperFont. For those of you that already 
have SuperFont, just add lines 10, 20,105,106,115, 375, 475, 477, 
1415, and 1601 through 1605. Also note the changes in lines 100, 
120,190, 270, 320, 340, 380, 470, 480, 590, 650,1300,1320,1360, 
1370,1400,1410, and 1420. If you obtained your SuperFont from 
COMPUTEl's First Book of Atari Graphics, you will also have to 
delete line numbers 5000 on up, as there is no room in the menu 
for the printer command. Once you do this, you will have the 
capability of designing your own ANTIC 4/5 character set. 

For those of you with only 16K, there is a way out. You will 
have to end up with two fonts: one font, the original, for the 
BASIC-supported graphics modes, and one for the ANTIC 4/5 
graphics modes. If you delete the following commands and 
change lines 250 and 300 to say RAM-4 instead of RAM-8, you 
will have a functional font. The deleted commands which have 
limited use for ANTIC 4/5 are: RESTORE (920-930), OVERLAY 
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(870-910), GRAPHICS (1370-1390), WRITE DATA (1290-1360), and 
QUIT (1130-1140). Also, please do not add the DATA command; 
you will not have enough memory to use it. I've included a utility 
that will read the saved character set from S command and put the 
character set into DATA lines just as the full-fledged version of 
SuperFont Plus does. Be sure to change 3500 to 520 in line 3000 so 
you don't jump to the DATA command that doesn't exist. 

Original SuperFont 

Here's a quick review of the original SuperFont commands: 

EDIT: The character you select by pressing the joystick trigger is 
copied to the grid in the upper section of the screen. The cursor is 
relocated to this grid, and you can instantly modify the character 
by moving the joystick and pressing the trigger to either set or 
remove a point, as desired. 

RESTORE: This will copy the pattern from the first character set 
to the second, located in the lower half of the screen. 

COPY FROM: Selects a character which will be copied to the 
current one you are working on. 

COPY TO: The current character will be copied to the selected 
place. 

SWITCH: Exchanges the current character for the one selected. 
OVERLAY: Adds the selected character's pattern to the current 
one. 

CLEAR: Clears the pattern of the current character. A must for 
ANTIC 4/5. 

INVERT: Turns current character upside down. 

SAVE FONT: Saves character set to disk or tape. Answer 
"Filename" with either C: or D:filespec. If you see an error 
message, press any key to return to the menu. 

LOAD FONT: Retrieves a character set that you saved. Answer 
"Filename" here the same way as in SAVE FONT. 

CURSOR-UP or SHIFT DELETE: The line of points the cursor is 
on is deleted, and the following lines are pulled up to fill the gap. 
CURSOR-DOWN or SHIFT INSERT: A blank line is inserted on 
the line the cursor is in, and all lines below it move down one. The 
bottom line is lost. 

SCROLL LEFT: The bit pattern of the character is shifted left. 
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SCROLL RIGHT: The bit pattern of the character is shifted right. 
WRITE DATA: The internal code (0-127) of the character and the 
eight bytes that make it up are displayed in the menu area. Press 
any key to return to menu. 

GRAPHICS: This toggles the TEXT/GRAPHICS option of 
graphics modes 1 and 2 to let you see each half of the character set. 
REVERSE: All blanks become points, and vice versa. Works the 
same as pressing the Atari logo key and then typing. 

QUIT: Exit program. 

SuperFont Plus: Three New Commands 

The ANTIC(A) command mode modifies the display list so that 
the lower section of the screen now becomes ANTIC mode 4 
except for the last line, which is ANTIC 5. Press A again to return 
to the original GRAPHICS 0,1, and 2. Once you activate this 
command, the character set will become mostly unrecognizable. 
This is because the characters are now four pixels wide instead of 
eight, but the overall displayed width remains the same. This loss 
of resolution is the price you have to pay for the multicolor ability 
of these ANTIC modes. 

Use all other commands as before; they will work. Please 
note that the grid now has double-wide pixels when compared to 
the first display. This is because that binary number you place in 
each pixel determines the color that will be displayed and you 
need two bits per color. The binary number is related to the color 
registers as follows: 00 = Background; 01 = Playfield 0; 10 = Play- 
field 1; and 11 = Playfield 2. To use Playfield 3's color, you 
also use binary 11, but the internal code must be 128-255. This is 
accomplished by using reversed characters via the Atari logo key. 
There is no way to use this key in any of the original commands, 
so the PRINT command was created. 

The PRINT mode (P) allows you to print any character in the 
bottom window next to another one just as in normal typing. This 
mode allows you to see that third playfield color via the logo key. 
You can type as long as you like, but if you exceed 38 characters, 
the first one will be lost and all the others will shift left. As noted 
before, this command can be used with the original GRAPHICS 1 
and 2. 

Since the keyboard is used for typing, the START and 
SELECT buttons will, respectively, return you to the menu and 
clear the typing area. When you return to the menu, the typing 
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area isn't automatically cleared; this allows you to work on more 
than one character at a time, that is, three characters together as a 
car, etc. This mode is also useful to get a full screen effect for one 
line of modified characters. 

The next new command is the Color Change mode (K). 

When I started working with the first two new commands, it 
became obvious that the ability to change the color of the character 
I was working on would be very useful. Thus I expanded the 
Display List Interrupt to give me that ability and added a second 
interrupt for the background color change. 

When you activate this command, you will be able to change 
only the colors for the ANTIC 4/5 character set. If you want to 
change the colors for the original graphics modes, modify lines 
170 and 300 as desired. The menu area will be cleared, and you 
will be given the choice of the playfield or background color you 
want to change. If you change the background, it will affect only 
the typing window. I did this to keep the clarity of the character 
set at its best, and you will probably want to see the change for 
only one or two characters at a time. 

After your register selection, you will be asked for the color 
and luminosity value (0-14) you want. To help you, a list of colors 
will be supplied in the menu area. If you give a bad input, you will 
be asked to try again, starting with the color value. To get the 
decimal value being used by that register, press R when being 
offered the color registers and then select a register. 

Using the Character Set 

Once you have created the character set, you will need to save it to 
disk or tape. There are a number of options open to you. The first 
one was supplied in the original SuperFont, the S (SAVE) font 
option. To use this, just press S and respond to the filename 
prompt with either C: for cassette or D: filename for disk. 

There are two methods of using the character set saved with 
the S option. Program 2 (Character Set Loader) simply loads the 
set into memory and changes CHBASE(756) to point to it. 

The second method is to use Program 3 (Character Set DATA- 
maker) to create a module of lines that lets you add your character 
set to any program. After saving your character set to tape or disk, 
just RUN Program 3. It will ask you for the filename of the char¬ 
acter set, the starting line number of the module, and a filename 
for the module. (Just answer C: to the filename prompt for use 
with a cassette.) 
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Program 3 writes a subroutine replete with the appropriate 
PEEKs, loops, and DATA statements, to tape or disk. It optimizes 
space by writing DATA statements only for those characters you 
have changed. After it has finished, you can use the ENTER 
command to merge the statements produced with any program. 
You may need to make some minor adjustments to the DATA 
statements it produces. Also, in your main program, remember to 
use a POKE 756,CHSET/256 after every GRAPHICS statement, 
since a GRAPHICS statement resets the character pointer. 

The second method for saving your font is the D DATA STM 
command. To use this command, just press D. You will first be 
asked if you want to delete any character set line numbers. Once 
the lines have been deleted, or if you do not wish to delete lines, 
the save font prompts will begin. 

To save the font, you must supply the starting line number 
(no line number below 4000 will be accepted) and the beginning 
and ending character. Once these inputs are completed, Unes will 
be added starting with whatever line number was entered, incre¬ 
menting by ten for each character. You can now LIST the font 
DATA to a printer, cassette, or disk. This file can now be merged 
with a program. 

The subroutine below can be used within a program to 
POKE the new character set into memory from the DATA state¬ 
ments. Remember to POKE 756,CHSET/256 after each 
GRAPHICS statement. 

3000 CHSET=PEEK(106)—8 
3010 CHSET=CHSET*256 
3020 FOR 1=0 TO 1023 
3030 READ A:POKE CHSET+I,A 
3040 NEXT I 
3050 RETURN 

That covers everything; now you should be able to generate some 
excellent graphics characters like those in Caverns of Mars and 
Eastern Front. 

Program 1. Superfont Plus 

10 GOTO 100 

20 POKE 82,14:POSITION 14,0:FOR I=ST TO ED:? 

"125 SPACES3- " : NEXT I : RETURN 
100 REM *** SUPERFONT + *** 

105 REM Character Set Editor 
140 DIM I(7),FN«(14),N«(10) 

150 IF PEEK(1536)<>72 THEN GOSUB 1400 
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160 GRAPHICS 0:POKE 752,1 
170 SETCOLOR 2,7,2:SETCOLOR 4,7,2 
180 D L = P E E K(560)+256*PEEK(561) +4 
190 SD=PEEK(88>+256*PEEK(89)+12*40:ASD=SD+5* 
40 

200 Al = 1630:FUNC=1631:A2=1632:LOG IC=16 28 
210 RAM=PEEK( 106)-8:PMBASE = RAM *256 
220 CHR0RG=57344 

230 POKE 559,46:POKE 54279,RAM 
240 POKE 53277,3:POKE 53256,3 
250 CHSET=(RAM-8)*256 
260 POKE DL+23,6:POKE DL+24,7 
270 POKE DL+17,130:POKE DL+18,112 
280 POKE 512,0:POKE 513,6 
290 POKE 54286,192 

300 POKE 1549,RAM-8:POKE 1672,RAM-8:POKE 153 
8,0 

310 A=USR(1555,CHSET) 

320 P0=PMBASE+512+20: P 1 =PMBASE +640 + 20 : F'2=PMB 
ASE+768+20:P=PMBASE+896+20:T=85:GOSUB 33 
0:GOTO 350 

330 FOR 1=0 TO 7:FOR J = 0 TO 3:T=255-T:POKE P 
0+I*4+J,0:POKE P1+I*4+J,T:T=255-T 
340 POKE P2+I*4+J,T:NEXT J:T=255—T:NEXT I:RE 
TURN 

350 POKE 53248,64:POKE 53249,64:POKE 53250,6 

4 

360 POKE 704,198:POKE 705,240:POKE 706,68 
370 POKE 53256,3:POKE 53257,3:POKE 53258,3:P 
OKE 623,1 

375 GOSUB 380:GOSUB 390:GOTO 490 
380 POSITION 2,0:? " LQ1L8 R!LE!":FOR 1=1 TO 
3:? ! <8 SPACES!-i NEXT I:? " -CZ3LS R! 

CC! " : RETURN 

390 POKE 82,14:POSITION 14,0 
400 ? "[a EditC8 SPACES!E Restore" 

410 ? "5 Copy From(3 SFACES3EI Switch" 

420 ? "D Copy To C 5 SPACES!E Clear ” 

430 ? "E Dverlay(5 SPACESDE* Invert" 

440 ? "3 Save FontC3 SPACES!!! Load Font" 

450 ? "CESC!<DEL LINE! Delete(6 SPACES!<ESC! 
LINS LINE! Insert” 

460 ? "LESC!LCLR TAB! Scroll Lett CESC! 

< SE T TAB! Scroll RT" 

470 ? " Lm LB! LE! ReverseL3 SPACES!!? Graphics 

475 ? "E Print mode E ANTIC 4S<5" 

477 ? " Gj Color changeE DATA STM" 

480 ? ”E Write Data E Quit”:RETURN 
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490 FOR 1=0 TO 3:FOR J = 0 TO 31:POKE SD+J+I*4 
0 + 4,1 * 32 +J:POKE ASD+J+I*40+4,I*32 + J:NEXT 
J:NEXT I:? 

510 OPEN #2,4,0,"K:" 

520 P=PEEK(764):IF P=255 THEN 520 

525 POKE 82,2:POSITION 0,0 

530 IF P=60 THEN 520 

540 IF P=39 THEN POKE 764,168 

550 GET #2,K 

560 IF K< >ASC("E") THEN 790 
570 GOSUB 1750 

580 FOR 1=0 TO 7:A=PEEK(CHSET+C*8+I):FOR J=0 
TO 3:POK E P0+I *4 + J,A:NEXT J:NEXT I 
590 POKE ASD+169+(ANTIC*10),C:POKE ASD+190+( 
ANTIC * 30) ,C 
600 J X = 0 :JY=0 
610 POSITION JX+4,JY+1 

620 ? CHR$(32+128*FF);"CLEFT}";:FF=1—FF 
630 IF STRIG(0)=0 THEN 750 

640 IF PEEK(764)<255 THEN ? " ";:GOTO 520 

650 ST=STICK(0):IF ST=15 THEN 610 

660 IF STRIG(0) THEN FOR 1=0 TO 100 STEP 20: 

SOUND 0,100-1,10,8:NEXT I 
670 POSITION JX+4,JY+1:? " "; 

680 JX=JX+(ST=7)-(ST=11) 

690 JY = JY+(ST =13)- (ST=14) 

700 IF JX<0 THEN J X =7 
710 IF J X >7 THEN JX = 0 
720 IF J Y < 0 THEN JY = 7 
730 IF JY >7 THEN JY = 0 
740 GOTO 610 

750 POKE A1,PEEK(CHSET+C*8+JY):POKE A2,2 A (7- 
J X) :POKE FUNC,73:A = USR(LOGIC) 

760 POKE CHSET+CYB+JY,A:FOR J=0 TO 3:P0KE P0 
+JY*4+J,A:NEXT J 

770 FOR 1=0 TO 10:SOUND 0, I *4,8,8:NEXT I:SOU 
ND 0,0,0,0 
780 GOTO 650 

790 IF K< >ASC ( "F") THEN 830 
800 S=C:GOSUB 1750 

810 FOR 1=0 TO 7:A=PEEK(CHSET+C*8+I):POKE CH 
SET+S*8+I,A:NEXT I 
820 C=S:GOTO 580 
830 IF KOASCC'T") THEN 870 
840 S=C:GOSUB 1750 

850 FOR 1=0 TO 7:A=PEEK(CHSET+S#8+I):POKE CH 
SET+C*8+I,A:NEXT I 
860 C=S:GOTO 600 
870 IF K<>ASC("0"> THEN 920 
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880 S=C:GOSUB 1750 

890 FOR 1=0 TO 7:POKE A 1,PEEK<CHSET + C*8+I) :P 
OKE A2,PEEK(CHSET+S*8+I):POKE FUNC,9:A=U 
SR(LOBIC) 

900 POKE CHSET+S*8+I,A:NEXT I 

910 C=S:BOTO 580 

920 IF K< >ASC("R") THEN 940 

930 FOR 1=0 TO 7:POKE CHSET+C*8+I,PEEK(CHROR 
G+C*8+I):NEXT I:SOTO 580 
940 IF KOASCC'C" ) THEN 960 

950 FOR 1=0 TO 7:POKE CHSET+C*8+I,0:NEXT I:B 
UTO 580 

960 IF K<>ASC ( "CRJ") THEN 980 

970 FOR 1=0 TO 7:POKE CHSET+C*8+I,255-PEEK(C 
HSET+C*8+I):NEXT I:BOTO 580 
980 IF KOASCt" X" ) THEN 1010 
990 S=C:BOSUB 1750 

1000 FOR 1=0 TO 7:A=PEEK<CHSET+S*8+I):POKE C 
HSET+S*8+I,PEEK <CHSET+C*8+I) :POKE CHSET 
+C*8+I,A:NEXT I:BOTO 580 
1010 IF KOASCCI") THEN 1030 

1020 FOR 1=0 TO 7:I<I)=PEEK(CHSET+C*S+I):NEX 
T I:FOR 1=0 TO 7:POKE CHSET+C*8+I,I(7-I 
):NEXT I:BOTO 580 

1030 IF K< >ASC < " {UP}*') AND K<>ASC(" 
t DEL LINE}") THEN 1050 

1040 FOR I=J Y TO 6:POKE CHSET+C*8+I,PEEK<CHS 
ET+CH8+I+1):NEXT I:POKE CHSET+CJ8+7,0:B 
OTO 580 

1050 IF K<>ASC("CDOWNJ") AND K<>ASC<“ 

{INS LINE}") THEN 1070 

1060 FOR 1=7 TO JY STEP -1:POKE CHSET+C*8+I, 
PEEK<CHSET+C*8+I-1):NEXT I:POKE CHSET+C 
*8+JY,0:GOTO 580 

1070 IF K<>ASC<"{LEFT}") THEN 1100 
1080 FOR 1=0 TO 7:A=PEEK<CHSET+C*8+I)*2:IF A 
>255 THEN A=A-256 

1090 POKE CHSET+C*8+I,A:NEXT I:GOTO 580 
1100 IF KOASC (" {RIGHT} " ) THEN 1130 
1110 FOR 1=0 TO 7:A=INT(PEEK(CHSET+C#8+I)/2) 
1120 POKE CHSET+C*8+I,A:NEXT I:GOTO 580 
1130 IF KOASCC'Q") THEN 1150 

1140 POKE 53243,0:POKE 53249,0:POKE 53250,0: 

POKE 53277,0:GRAPHICS 0:END 
1150 IF KOASCrS") THEN 1210 
1160 GOSUB 1610:POKE 195,0 
1170 TRAP 1190:OPEN #1,8,0,FN* 

1180 A=USR(1589,CHSET) 

1190 CLOSE #1:TRAP 40000:IF PEEK(195) THEN 1 
260 
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1200 POKE 54286,192:GOSUB 390:GOTO 520 
1210 IF K<>ASC("L") THEN 1290 
1220 GOSUB 1610:POKE 195,0 
1230 TRAP 1250:OPEN #1,4,0,FN$ 

1240 A=USR<1619,CHSET) 

1250 CLOSE #1:TRAP 40000:IF PEEK<195)=0 THEN 


1260 

1270 

1280 

1290 

1300 


1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

14 10 

1415 

1420 

1430 
1 440 
1450 
1460 
14 70 
1480 
1490 
1 500 
1510 
1 520 
1530 
1540 
1550 
1 560 
1570 


POSITION 14,0:7 "CBELL>*ERROR -";PEEK(1 

95);"*” 

IF PEEK(764)<255 THEN POSITION 14,0:7 " 

<19 SPACES>":GOTO 1200 
GOTO 1270 

IF KOASCCW") THEN 1370 

ST=0:ED=11:GOSUB 20:N$="<3 SPACES>”:L=L 
EN(STR$(C)):N$(1,L)=STR$(C):L=LEN(Nt):P 
OS ITI ON 14,0 

FOR 1 = 1 TO L:7 CHR$(ASC(N$(I, I) )+12 8) ; : 
NEXT 1:7 ”>"; 

Z = 0:F OR 1=0 TO 2:F0R J=0 TO 1+<I>0):A = P 

EEK(CHSET+C*8+Z):Z=Z+1 

SOUND 0,(1 * 3 +J) 1 10 + 50, 10,8 

7 A;",":NEXT J:NEXT I:SOUND 0,0,0,0 

IF PEEK(764)=255 THEN 1350 

GOSUB 20:GOSUB 390:GOTO 520 

IF KOASCC'G") THEN 2000 

CF=1—CF:POKE 1549,RAM-8+2*CF 

GOTO 520 

GRAPHICS 2+16:SETCOLOR 4, 1,4:POSITI ON 5 
,3:7 # 6 ; "SUPER HlCSj + " 

POSITION 5,5:7 #6;”patienceC3 N>”:POSIT 
ION 2,7:7 #6; “ORIGINAL SE" 

POSITION 2,8:7 #6;"CHARLES BRANNON" 

FOR 1=1536 TO 1710:READ A:POKE I,A:POKE 
709,A:SOUND 0,A,10,4:NEXT I 
SOUND 0,0,0,0:RETURN 
DATA 72,169,100,141,10,212 
DATA 141,24,208,141,26,208 
DATA 169,6,141,9,212,104 
DATA 64,104,104,133,204,104 
DATA 133,203,169,0,133,205 
DATA 169,224,133,206,162,4 
DATA 160,0,177,205,145,203 
DATA 200,208,249,230,204,230 
DATA 206,202,208,240,96,104 
DATA 162,16,169,9,157,66 
DATA 3,104,157,69,3,104 
DATA 157,68,3,169,0,157 
DATA 72,3,169,4,157,73 
DATA 3,32,86,228,96,104 
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1580 

1590 

1600 

1601 

1602 

1603 

1604 


1 605 


1610 

1620 

1630 

1640 

1650 

1660 

1670 
1 680 


1 690 


1695 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 


1810 

1820 

1830 

1840 


DATA 162,16,169,5,76,58 
DATA 6,9,104,169,0,9,0,133 
DATA 212,169,0,133,213,96 

DATA 72,138,72,152,72,169,0,162,0,160,0 
DATA 141,10,212,141,26,208 
DATA 142,24,208,140,25,208 
DATA 169,0,141,22,208,141,10,210,169,6, 
141,9,212,169,0,141,23,208,169,156,141, 
0,2 

DATA 104,168,104,170,104,64,72,169,0,14 
1,10,212,141,26,208,169,104,141,10,210, 
141,0,2,104,64 

GOSUB 20:POSITION 14,0:? "Filename?"; 
FN$="":K=0 
POKE 20,0 

IF PEEK(764)<255 AND PEEK(764X>39 AND 
PEEK(764)<>60 THEN 1670 
IF PEEK(20)<10 THEN 1640 

? CHR$(21+11*K>CLEFT}K=l-K:GOTO 16 
30 

GET #2,A 

IF A=155 THEN ? " ";:FOR 1=1 TO LEN(FN$ 

)+10:? ”CBACK S3”;:NEXT I:RETURN 
IF A=126 AND LEN(FN$)>1 THEN FN*=FN$(1, 
LEN(FN$)— 1) :? "CLEFT3 ";CHR$<A) ; :GOTO 16 
30 

IF A=126 AND LEN(FN4)=1 THEN ? CHR3XA); 

:GOTO 1620 

IF A = 58 OR (A > 4 7 AND A<58) OR (A>64 AND 
A < = 9 0) OR A = 46 THEN 1720 
GOTO 1630 

IF LEN(FNt)<14 THEN FN$(LEN(FN*)+1)=CHR 
* (A) :? CHR$(A) ; 

GOTO 1630 
END 

REM GET CHOICE OF CHARACTER 
CY=INT(MRY/32):CX=MRY-32*CY 
C=CX+CY*32 

POKE SD+CX+CY*40+4,C+128 
POKE ASD+CX+CY*40+4,C+128 

IF STRIG(0)= 0 OR PEEK(764)<255 THEN MRY 
=C:GOTO 1900 

ST=STICK(0):IF ST=15 THEN 1800 
POKE 53279,0 
GOSUB 1900 

CX=CX—(ST=11)+(ST=7):CY=CY-(ST=14)+(ST= 
13) 

IF CX<0 THEN CX=31:CY=CY-1 
IF CX >31 THEN CX = 0:CY = CY + 1 
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1870 IF CY < 0 THEN CY = 3 
1880 IF CY >3 THEN CY = 0 
1890 GOTO 1770 
1900 POKE SD+CX+CY*40+4, C 
1910 POKE ASD+CX+CY*40+4, C 
1920 RETURN 

2000 IF K<>ASC("A") THEN 2200 
2005 POKE 54286,0 

2007 POKE ASD+169+<ANTIC*10),0:POKE ASD+190+ 
(ANT IC*30) ,0 

2010 IF ANTIC=1 THEN 2100 
2020 POKE DL+24,5 

2030 FOR 1=19 TO 23:POKE DL+I,4:NEXT I:POKE 
DL + 22,132 

2040 POKE 512,104:ANTIC=1 
2050 COLF0=2*16+6:COLFl=6*16+6 
2060 COLF2=10*16+8:COLF3=15*16+8 
2070 POKE 1664,COLF0:POKE 1648,COLFl 
2080 POKE 1650,C0LF2:POKE 1677,C0LF3 
2090 POKE 54286,192:T=51:GOTO 2127 
2100 ANTIC=0:POKE DL+23,6:POKE DL+24,7 
2110 POKE 512,0:FOR 1=19 TO 22:POKE DL+I,2:N 
EXT I 

2120 POKE 54286,192:T=85 

2127 GOSUB 330:POKE ASD+169+<ANT IC* 10> ,C:POK 
E ASD+190+<ANTIC*30),C:GOTO 520 
2200 IF K<>ASC("P”) THEN 3000 
2205 ST=0:ED=10:GOSUB 20 
2210 POSITION 14,0:C T = 0 
2220 ? "15 SPACES! 13m >1 a " 

2230 ? : ? " Press to return" 

2240 ? "C5 SPACESJto menu" 

2250 ? :? " Press to clear" 

2260 ? "{3 SPACES!typing area" 

2270 KK=PEEK(53279):IF KK=6 THEN GOSUB 390:G 
OTO 520 

2280 IF K K = 5 THEN 2600 

2290 P=PEEK<764):IF P=255 THEN 2270 
2300 GET #2,K 

2302 IF K > = 0 AND K<32 OR K>=128 AND K<160 TH 
EN K = K + 6 4:GOTO 2306 

2304 IF K > = 32 AND K<96 OR K>=160 AND K<224 T 
HEN K=K—32 

2306 IF CT>(ANTIC+l) * 17 THEN 2320 
2310 POKE ASD+161+CT,K:POKE ASD+181+(ANT IC*2 
0)+CT,K:CT=CT+1:GOTO 2270 
2320 FOR 1=0 TO 17*(ANTIC+1):POKE ASD+161+I, 
PEEK <ASD+162+1) :POKE ASD+181 +(ANTIC*20) 
+ 1,PEEK(ASD+182+ <ANTIC*20)+1) 
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NEXT I:CT=17*(ANTIC+1):GOTO 2310 

FOR 1=0 TO 19*(ANTIC+1):POKE ASD+161+I, 

0:POKE ASD+181+<ANTIC*20>+1,0:NEXT I:CT 

=0:GOTO 2270 

IF K< >ASC(“K”) THEN 3500 


"COLOR CHANG 


ST=0:ED=10:GOSUB 20:DIS 
POKE 82,14:POSITION 14, 

E MODE- 

PRESS K TO RETURN" 

15 SPACES I-TO MENU" 

E PLAYFI ELD 0" 

D PLAYFI ELD 1" 

£ PLAYFI ELD 2” 

E PLAYFI ELD 3" 

E BACKGROUND":? "E READ REGISTER" 

GET #2,K:DIS=0:IF K=ASC<"0"> THEN DIS=18 
THEN RDE=1:GOTO 3100 
THEN DIS=31 
THEN DIS=2 
THEN DIS=4 
THEN DIS = 4 8 

THEN GOSUB 390:GOTO 520 


IF K=ASC(" 

IF K = ASC ( " 

IF K=ASC(" 

IF K = A S C("3") 

IF K=ASC(”B“) 

IF K = A S C ( 11 K " ) 

IF RDE= 1 THEN 341 
IF DIS = 0 THEN 310 


ST=2:ED=10:GOSUB 20 


POKE 82,14:POSITION 14,0 
? "E GREY □ GOLD £ ORANGE" 

? “E RED 13 SPACES3E PINK E PURPLE" 

? "5 BLUE E BLUE E LT.BLUE" 

? "OE TURQUOISE EE GREENBLUE" 

? "IE GREEN C 5 SPACES3EE YELLOW/GR" 

? "EE ORANGE/GR EE LT.ORANGE" 

TRAP 3400 

INPUT COL:? "C3 SPACES}Luminosity" 

? " input (0-14) ; 

INPUT LUM 
CLCHG = COL * 16 + LUM 
POKE 1646+DIS,CLCHG 
GOTO 3010 

TRAP 40000:POSITION 14,6:? "TRY AGAIN”: 
FOR 1=1 TO 100:NEXT I:POSITION 14,6:? ” 

19 SPACES!":POSITION 14,6:G0T0 3245 
R D E = 0:DRE = PEEK(1646 + DIS) :POSITION 14,9: 
? "COLOR REGISTER ";CHR*(K);"=";;" 

13 SPACES}";"13 LEFT}";DRE:GOTO 3100 
IF KOASCC'D") THEN 520 

POKE 53248,0:POKE 53249,0:POKE 53250,0: 
POKE 82,0:ST=0:ED=10:GOSUB 3600 
GOSUB 3620:N$=” " 
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3520 POSITION 2,0:? "First letter of FONT to 
be made":? "into DATA statememts";:INP 
UT N*:A=ASC<N$):GOSUB 3700 
3530 SST = A: ? ” Last letter of FONT";: INPUT 

N$:A = ASC<N*> :SOSUB 3700:LLT = A+1:? 

3534 TRAP 3610 

3535 ? " DATA LINE START ( IV ?T 

EE)":INPUT L:IF L<4000 THEN 3535 

3536 DTASTART=L:ED=5:ST=0:BOSUB 3600 
3540 FOR J=SST TO LLT-1:POSITI ON 0,2:? " 

tDOWNl";L;" D.";:FOR A=0 TO 7:? PEEK(CH 
SET+J*8+A) NEXT A:? " ■£ LEFT 3- " ; " ” 

3550 ? :? "CONT":POSITION 0,0:POKE 842,13:STOP 

3560 POKE 842,12:L=L+10:ED=10:ST=0:BOSUB 360 
0:NEXT J 

3565 POSITION 0,0:? " SAVE FONT";:INPUT N$:I 
F N$(1,1)="Y" THEN SOSUB 1610:LIST FN* , 
DTASTART,L:BOTO 3570 

3566 IF N$(1,1)<>"N" THEN BOSUB 3600:BOTO 3565 

3570 ? " Finished”;:INPUT N$:IF N*<1,1>="Y" 

THEN 1140 

3575 IF N $(1, 1)< >"N" THEN SOSUB 3600:POSITIO 
N 0,0:SOTO 3570 

3580 POKE 53248,64:POKE 5324?,64:POKE 53250, 
64:ED=10:ST=0:BOSUB 3600:POKE 82,2:POSI 
TION 2,0:SOSUB 380 
3590 BOSUB 330:BOSUB 390:BOTO 520 
3600 POSITION 0,0:F 0 R I=ST TO ED:? " 

139 SPACES!”:NEXT I:RETURN 
3610 TRAP 40000:BOTO 3534 

3620 POSITION 0,0:? " DELETE ANY DATA LINES" 

;:INPUT N$:IF N*(1,1)="N" THEN ED=10:ST 
=0:BOSUB 3600:RETURN 
3630 IF N$(1,1)<>"Y" THEN 3620 
3635 TRAP 3690 

3640 ? " START LINE NUMBERINPUT L:? ** END 

LINE NUMBER”;:INPUT LLT 

3645 IF L< 4000 OR LLT< L THEN ED=10:ST = 0:BOSU 
B 3600:POSITION 0,0:BOTO 3640 

3646 ED=10:ST=0:BOSUB 3600 

3650 FOR J=L TO LLT STEP 10:POSITION 0,2:? ” 

{DOWN}“;J:? :? "CONT":POSITI ON 0,0:POKE 

842,13:STOP 

3660 POKE 842,12:NEXT J:ED=10:ST=0:SOSUB 360 
0:RETURN 

3690 TRAP 40000:SOSUB 3600:SOTO 3635 
3700 IF A > = 32 AND A<96 THEN A = A-32:RETURN 
3710 IF A > = 0 AND A<32 THEN A = A + 64:RETURN 
3720 IF A >127 THEN A = A-128:S0T0 3700 
3730 RETURN 
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Program 2. Character Set Loader 

1000 REM CHLOAD-CHARACTER SET LOADER 
1005 OPEN #1,4,0,"D:FONT":REM YOUR FILENAME 
HERE 

1010 X=16:CHSET=(PEEK(106)-8)*256:POKE 756,C 
HSET/256 

1020 ICC0M=834:ICBADR=836:ICBLEN=S40 
1030 POKE ICBADR+X+1,CHSET/256:POKE ICBADR+X 
, 0 

1040 POKE ICBLEN+X+1,4:POKE ICBLEN+X,0 
1050 POKE ICCOM + X , 7 : A = U S R (ADR ( "hhh E3LV EE" ) , X ) : 

REM CALL CIO 
1060 CLOSE #1 

Program 3. Character Set DATAmaker 

100 REM CHSET DATAMAKER 

102 GRAPHICS 1+16:CHSET=(PEEK(106)-8)*256 
105 DIM F$<14),OF$(14) 

110 POSITION 3,0:? #6;"character set" 

120 POSITION 5,2:? #6;"datamaker" 

130 ? 46:? 46;"THIS UTILITY CREATES" 

140 ? 46;"A SET OF DATA STATE-"; 

150 ? 46;”MENTS FROM A SAVED" 

160 ? 46;"CHARACTER SET. IT" 

170 ? 46;"OPTIMIZES BY ONLY" 

180 ? 46;"LISTING CHARACTERS" 

190 ? 46;"NOT PRESENT IN THE" 

200 ? 46;"STANDARD CHARACTER" 

210 ? 46;"SET." 

220 ? 46:? 46; "PRESS 

230 IF PEEK<53279)<>3 THEN 230 

240 GRAPHICS 1+16 

250 ? 46;"THE DATA STATEMENTS" 

260 ? 46;"WILL BE WRITTEN" 

270 ? 46;"AS A list FILE." 

280 ? 46;"USE enter TO MERGE” 

290 ? 46;"THE DATA WITH YOUR" 

300 ? 46; "PROGRAM. ": ? 46:? 46; " l=H¥g 
[a":? 46; » : M rI:TAi g 3 * , " 

305 POKE 82,0:POKE 87,0 

310 ? "{UP){DEL LINE)";:INPUT F$:IF F$=”” TH 
E N 3 10 

315 IF F$="C" OR F$="C:" THEN CASS=l:GOTO 33 

320 ? "{6 UP) {6 DEL L I NE ) •■■nilarm 

{8 SPACES) ffiOEmasn" : ? :? 

330 ? "{UP){DEL LINE)";:INPUT OF$:IF OF$="" 

THEN 330 
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335 ? "{3 UP} C3 DEL LINE} 

340 INPUT SLINE 
345 CLOSE #1 

350 GRAPHICS 2+16:SETCOLQR 4,3,0 
360 IF CASS THEN ? #6:? #6;"POSITION CHARACT 
ER":? #6 ; " SET TAPE,HIT SMEHII" 

370 POSITION 5,6:? #6;"workingC3 N3" 

375 GOSUB 1000:REM LOAD CHARACTER SET 
377 IF CASS THEN ? #6;"{CLEAR}INSERT OUTPUT 
TAPE,":? #6; "PRESS " 

380 OPEN #2,8,0,OF*:POSITION 5,6:? #6;"IHjCB 
Cirt3 C3" 

381 ? #2;SLINE;"CHSET=(PEEK(106)-8)*256:FOR 
1=0 TO 1023:POKE CHSET+I,PEEK(57344+I):N 
EXT I " 

382 ? #2;SLINE+1;"RESTORE ";SLINE+5 

383 ? #2;SLINE+2;"READ A:IF A=-l THEN RETURN 

384 ? #2;SLINE+3;"FOR J=0 TO 7:READ B:POKE C 
HSET+AUB+J.B:NEXT J" 

385 ? #2;SLINE+4;"GOTO ”;SLINE+2 
387 LINE=SLINE+4 

390 FOR 1=0 TO 127:F=0 
400 FOR J=0 TO 7 

420 IF PEEK(CHSET+I*8+J)< >PEEK(57344+1*8 + J ) 
THEN F=1 
430 NEXT J 

440 IF NOT F THEN 460 
445 LINE=LINE+1 

450 ? #2;LINE;" DATA ";:? #2;I;:F0R J=0 TO 7 
:? #2;",";PEEK(CHSET+I*8+J);:NEXT J:? #2 
460 NEXT I:? #2;LINE+1;"DATA -1" 

470 POKE 82,2:? "All finished! Use ENTER "; 
CHR*(34);OF* 

480 ? "to merge the file." 

490 NEW 

1000 REM HIGH-SPEED LOAD OF CHARACTER SET 
1005 OPEN #1,4,0,F*:REM OPEN FILE 
1010 X=16:REM *10 

1020 ICCOM=834:ICBADR=836:ICBLEN=840 
1030 POKE ICBADR+X+1,CHSET/256:POKE ICBADR+X 
, 0 

1040 POKE ICBLEN+X+1,4:POKE ICBLEN+X,0 
1050 POKE ICCOM+X , 7 : A = U S R (ADR ( " hhh E3L. V fT" ) , X ) : 

REM CALL CIO 
1060 CLOSE #1:RETURN 
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Supe r TextPlot 

■■■■■■■ Donald L. Vossler 


This modified version of Charles Brannon's "TextPlot" runs more slowly, 
but adds many features for fancy text displays. 

"Super TextPlot" is a machine language utility that lets you plot 
character images in any Atari graphics or text mode. The idea for 
the program was inspired by Charles Brannon's "TextPlot" utility 
(COMPUTE's First Book of Atari Graphics). Super TextPlot provides 
the following capabilities. 

1. Plots the entire ATASCII character set, including upper/lower¬ 
case, graphics characters, special symbols, and the reverse video 
version of each of these characters in any graphics or text mode. 
Alternate character sets may be plotted by changing the CHBAS 
vector (location 756) to point to the alternate character set. 

2. Allows the user to specify a string of characters to plot. The 
only length limitation for the string is that it must fit in the display 
area when it is plotted. 

3. Allows the user to specify the starting position of the string to 
plot. This position can be any (X,Y) coordinate on the display. 

4. Gives the user the option of overwriting the graphics already 
on the screen or of merging the plotted characters with the 
existing graphics. 

5. Allows the user to select which color registers are to be used for 
the foreground and background of the characters plotted. 

6. Allows the user to scale each character string independently in 
the horizontal and vertical directions by specifying the number of 
rows and columns for each character. The actual size of each char¬ 
acter varies with the pixel size of the graphics mode selected. 

Many different-sized characters can be plotted on the same 
graphics screen. 

7. Allows the user to select one of four angular orientations to 
plot each character string. The four available orientations are 90 
degree increments from the horizontal. 
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All of these capabilities are available using one simple invoca¬ 
tion of a machine language routine from the USR function in 
BASIC. 

Underlying Mathematical Concepts 

The fundamental trigonometric relationships used by Super 
TextPlot are illustrated in Figure 1. The angle THETA (9) is mea¬ 
sured from the horizontal + X axis to the baseline of the character 
string to be plotted; CHNUM is the index number of each char¬ 
acter in the string; NROWS and NCOLS are the total number of 
rows and columns, respectively, to be plotted for each character; 
ROW and COL are the particular row and column of the pixel to 


Figure 1. Super TextPlot Trigonometric Relationships 
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be plotted; XS and YS are the coordinates of the lower-left comer 
of the first character to be plotted (before the string is rotated). 
Using these definitions, the appropriate formulas for the point to 
be plotted (XI) YP) are the following: 

XP = XS + cos(0)*(CHNUM*NCOLS-l-COL) - sin(0)* 
(NROWS-l-ROW) 

YP = YS - sin(0)*(CHNUM*NCOLS-l-COL) - cos(Q)* 
(NROWS-l-ROW) 

The derivation of these formulas is shown in Figure 2. 

Figure 2. Derivation of Plotting Formulas 

XP = XS + dXl - dX2 

XP = XS + cos(THETA)*((CHNUM-l)*NCOLS + (NCOLS-l-COL)) -sin 
(THETA)*(NROWS-l-ROW) 

XP = XS + cos(THETA)*CHNUM*NCOLS-l-COL) - sin(THETA)*(NROWS 
-1-ROW) 

YP = YS - dYl - dY2 

YP = YS - sin(THETA)*((CHNUM-l)*NCOLS + (NCOLS-l-COL))-cos 
(THETA)*(NROWS-l-ROW) 

YP = YS - sin(THETA)*(CHNUM’ f NCOLS-l-COL) - cos(THETA)*(NROWS 
-1-ROW) 

Using Super TextPlot 

With the appropriate formulas derived, the Super TextPlot routine 
was developed. The USR function is used to invoke the utility. 

The syntax for this function is: 

A = USR(ADR(ASM*),ADR(St),LEN(St),XS,Y 
S,ORIENT,NROWS,NCOLS,FCR,BCR,PRIOR) 

The parameters specified above have the following meanings: 
ADR(ASM$) This parameter is the starting address of the Super 
TextPlot routine. Since the loader for the routine 
uses a character string (ASMS) to reserve space in 
memory for the routine, the starting address is 
merely the address of this string. 

ADR(S$) This parameter is the address of the string to be 

plotted. Usually it will be the value returned by the 
ADR function for the string since this is the first 
character in the string. However, any address is 
valid. For example, the address could point to a 
sub-string contained in a long string. 
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LEN(S$) 


This parameter specifies how many characters are 
to be plotted. The LEN function provides the 
appropriate value if the entire string is to be 
plotted. Other values may be appropriate for plot¬ 
ting sub-strings. If this parameter is zero, nothing 
is plotted, and the USR function simply returns to 
the BASIC program. 

XS,YS These two parameters specify the (X,Y) coordi¬ 

nates of the starting position of the string to be 
plotted (lower-left comer of the first character). 
This point is also used as the pivot point when the 
string is rotated (see ORIENT parameter). (XS,YS) 
must define a point within the limits of the current 
graphics mode. 

ORIENT This parameter specifies the angular orientation of 

the character string to be plotted. The string is 
rotated counterclockwise from the horizontal + X 
axis about the point (XS,YS). The parameter 
ORIENT should be specified as an integer which is 
interpreted as follows: 

ORIENT = 0,0 degree rotation 
= 1,90 degree rotation 
= 2,180 degree rotation 
= 3,270 degree rotation 

The value of ORIENT is interpreted MOD(3) so 
that ORIENT = 4 is the same as ORIENT = 0, 
ORIENT = 5 is the same as ORIENT = 1, etc. The 
high byte of the two-byte integer passed by the 
USR function to the machine language routine is 
ignored. Figure 3 illustrates the orientation of 
strings plotted at each of the four orientations. 

NROWS The parameter specifies how many rows per char¬ 
acter are to be plotted and therefore determines 
the height of each character. Normally, NROWS is 
greater than or equal to eight; however, positive 
values less than eight are valid and will result in 
characters plotted with "missing" rows. This may 
be useful for crowding strings into a limited space, 
or it may simply produce unreadable characters. If 
NROWS is zero, nothing is plotted, and the USR 
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function returns to the BASIC program. The 
maximum acceptable value for NROWS is 255 (the 
high byte of the two-byte integer passed to the 
machine language routine by the USR function is 
ignored). 

NCOLS This parameter specifies how many columns per 
character are to be plotted and therefore deter¬ 
mines the width of each character. The restrictions 
on the range of values for this parameter are the 
same as those specified for the NROWS param¬ 
eter. 

FCR This parameter specifies the foreground color 

register to be used when plotting the string. This 
indirectly specifies the color of the characters 
plotted in the framework of the standard 
SETCOLOR-COLOR concept embodied in the 
Atari BASIC language. In text modes (GRAPHICS 
0-2) this parameter should be specified as an 
ATASCII code. Using Super TextPlot in this 
manner allows block printing of character images 
which are typically used as headers to identify 
printed listings. For example, FCR = 160 would use 
the reverse video space to plot large characters in 
GRAPHICS 0. 

BCR This parameter specifies the background color 

register for each character. The comments 
regarding the use of FCR in text modes also apply 
for this parameter. If the value of the parameter 
PRIOR (see below) is zero, then the BCR param¬ 
eter has no effect on the characters plotted. 

PRIOR This parameter specifies the priority of the back¬ 

ground of the character string plotted. If PRIOR is 
zero, the background of the characters is not 
plotted and existing graphics on the screen will 
not be disturbed. If PRIOR is a positive value, the 
color specified indirectly by BCR is plotted for the 
background (this color may be black). 

The following items should be noted in relation to specifying 

these parameters: 

1. The Super TextPlot routine does not check to make sure that 
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points plotted to form a string fall within the bounds of the 
display area. The user must insure that all the points to be plotted 
will fall within the display limits. Plotting points which are out of 
range usually results in a system crash. 

2. Reverse video characters may be plotted by two different 
methods: 

a. Specify reverse video characters in the string to be plotted; or 

b. Specify normal characters in the string and reverse the values 
for FCR and BCR. 

3. If the parameters FCR and BCR are assigned the same value 
(and PRIOR is positive), the string will be plotted but will appear 
as contiguously colored blocks. 

4. If an improper number of parameters is specified in the USR 
function statement. Super TextPlot will return to the BASIC 
program but take no other action. 

5. The value A returned by the USR function has no significance. 

Figure 3. Angular Orientations of Character Strings 


D + C 


Loading Super TextPlot 

One of the problems associated with writing utility routines in 
machine language is determining a safe range of memory loca¬ 
tions which can be used to store the routine. This problem is 
complicated by various available memory configurations. 
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memory used by custom display lists, player/missile graphics, 
and other machine language routines. 

Super TextPlot solves all of these problems by providing the 
machine code in a relocatable format. All of the addresses in the 
DATA statements are relative addresses offset from the beginning 
of the routine. These addresses are flagged as minus numbers in 
the DATA statements. When the loader routine is invoked, it 
reserves a character string (ASM$) in which the machine code is 
stored. As each instruction code is loaded into this string, the 
addresses are modified to reflect the actual memory locations 
utilized. 

Applications for Super TextPlot 

Since Super TextPlot is a utility program, it can be treated as an 
extension to the BASIC programming language and therefore 
becomes one of the tools available to a programmer. Obvious 
examples for the use of this routine include labelling graphs and 
bar charts, adding text to graphic game displays, and developing 
colorful and attractive message displays. Super TextPlot can be an 
effective marketing/sales tool. A variety of textual messages can 
be displayed on a demonstration computer system in order to 
attract customers and provide information in an eye-catching 
format. 

Super TextPlot Demonstration 

1000 REM 

1010 REM-INITIALIZATION- 

1020 REM 

1030 DIM S* < 40) :DEG :? "LOADING ASSEMBLY COD 
E"i? "45 SECOND DELAY ...":GOSUB 8000 
1040 REM 

1050 REM-DEMO #1- 

1060 REM 

1070 GRAPHICS 7+16 

1080 St="SUPER TEXTPLOT":XS=24:YS=24:ORIENT= 
0:NR0WS=24:NCOLS=8:FCR=3:BCR=0:PRIOR=0: 
GOSUB 8000 

1090 S*="FOR":XS = 68:YS = 44:ORIENT = 0:NROWS = B: N 
C0LS=8:FCR=1:BCR=0:PRIOR=0:GOSUB 8000 
1100 S*="ATARI":XS=0:YS=95:ORIENT=0:NR0WS=32 
:NC0LS=32:FCR=2:BCR=0:PRIOR=0:GOSUB 800 
0 

1110 S$="COMPUTE!":NR0WS=8:NCOLS=8:FCR=3:BCR 
= 1:PR IOR=1 

1120 XS=7:YS=64:ORIENT=l:PRIOR=l:GOSUB 8000 
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1130 XS=151:YS=2:0RIENT=3:GOSUB 8000 
1140 BOSUB 7000 
1150 REM 

1800 REM-DEMO #2- 

1810 REM 

1820 GRAPHICS 7+16 
1830 COLOR 3 

1840 PLOT 34,2:DRAWTO 126,2:DRAWTO 126,94:DR 
AWTO 34,94:DRAWTO 34,2 
1850 PLOT 51,19:DRAWTO 109,19:DRAWTO 109,77: 

DRAWTO 51,77:DRAWTO 51,19 
1860 PLOT 60,28:DRAWTO 100,28:DRAWTO 100,68: 

DRAWTO 60,68:DRAWTO 60,28 
1870 PLOT 34,2:DRAWTO 60,28 
1880 PLOT 126,2:DRAWTO 100,28 
1890 PLOT 126,94:DRAWTO 100,68 
1900 PLOT 34,94:DRAWTO 60,68 

1910 S*=”ATARI":FCR=2:BCR=0:NROWS=B:NCOLS=8: 
PR IOR = 0 

1920 XS=60:YS=27:ORIENT=0:GOSUB 8000 
1930 XS=101:YS=28:0RIENT=3:GOSUB 8000 
1940 XS=98:YS=69:0RIENT=2:GOSUB 8000 
1950 XS=58:YS=67:ORIENT=l:GOSUB 8000 
1960 NROWS=16:NCOLS=l1:FCR=1 
1970 XS=53:YS=18:ORIENT=0:GOSUB 8000 
1980 XS=110:YS=21:0RIENT=3:GOSUB B000 
1990 XS=107:YS=78:ORIENT=2:GOSUB B000 
2000 XS=50:YS=75:ORIENT=l:GOSUB 8000 
2010 XS=61:YS=67:ORIENT=0:FCR=3:BCR=2:NROWS= 
39:NC0LS=39:PRIOR=l 
2020 FOR 1=1 TO 8 

2030 S*=”COMPUTE!":S* = S*(I,I):GOSUB 8000 

2040 NEXT I 

2050 GOSUB 7000 

2060 GOTO 2060 

7000 REM 

7010 REM -COLOR FLASH ROUTINE- 

7020 REM 

7030 FOR 1=1 TO 50:FOR J=0 TO 2:SETC0L0R J,R 
ND(0)*16,RND<0>*16:FOR W=1 TO 5:NEXT W: 
NEXT J:NEXT I:RETURN 

7997 REM 

7998 REM - SUPER TEXTPLOT ROUTINE - 

7999 REM 

8000 IF ASMLD=1 THEN A=USR<ADR<ASM*),ADR(S*) 
,LEN(S*),XS,YS,ORIENT,NROWS,NCOLS,FCR,B 
CR,PRIOR):RETURN 

8010 ASMLD=1 
8020 DIM ASM*(725) 
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8030 

8040 

8050 

8060 

8070 


8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 


FOR I=fiDR(fiSMt) TO ADR(ASM*)+724 
READ A 

ON <SGN(A)+2) GOSUB 8080,8160,8220 
NEXT I 
GOTO 8000 
READ B 

ADDR = ABS< A)+256 * ABS < B)+ADR(ASM*) 
ADDRHI = I NT(ADDR/256) 
ADDRL0=ADDR-256*ADDRHI 
POKE I,ADDRLO 
POKE I+1,ADDRHI 
1 = 1 + 1 
RETURN 
READ B 

IF B< 0 THEN 8090 
POKE I,A 
POKE I + 1 ,B 
1 = 1 + 1 
RETURN 
POKE I,A 
RETURN 

DATA 104,141,-255,0,10,170,240,8 
DATA 104,157,-255,0,202,76,-6,0 
DATA 173,-255,0,201,10,240,1,96 
DATA 173,-16,-1,208,1,96,173,-8 
DATA -1,208,1,96,173,-6,-1,208,1 
DATA 96,173,-10,-1,41,3,141,-10 
DATA -1,173,-18,-1,133,203,173 
DATA -19,-1,133,204,169,0,141 
DATA -17,-1,238,-17,-1,56,173 
DATA -16,-1,237,-17,-1,16,3,76 
DATA -254,0,32,-32,-1,173,-6,-1 
DATA 141,-7,-1,206,-7,-1,174,-7 
DATA -1,224,255,208,3,76,-251,0 
DATA 172,-6,-1,32,-138,-1,140,-3 
DATA -1,173,-6,-1,174,-17,-1,172 
DATA -7,-1,32,-195,-1,140,-20,-1 
DATA 142,-21,-1,169,255,141,-9 
DATA -1,238,-9,-1,174,-9,-1,236 
DATA -8,-1,208,3,76,-248,0,172 
DATA -8,-1,32,-138,-1,140,-5,-1 
DATA 172,-5,-1,177,205,172,-3,-1 
DATA 57,-24,-1,240,2,169,1,141 
DATA -1,-1,173,-135,-1,240,9,56 
DATA 169,1,237,-1,-1,141,-1,-1 
DATA 173,-1,-1,208,5,173,0,-1 
DATA 240,46,174,-2,-1,173,-1,-1 
DATA 240,3,174,-4,-1,142,-212,-2 
DATA 173,-8,-1,162,1,172,-9,-1 
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8520 DATA 
8530 DATA 
8540 DATA 
8550 DATA 
8560 DATA 
8570 DATA 
8580 DATA 
8590 DATA 
8600 DATA 
8610 DATA 
8620 DATA 
8630 DATA 
8640 DATA 
8650 DATA 
8660 DATA 
8670 DATA 
8680 DATA 
8690 DATA 
8700 DATA 
8710 DATA 
8720 DATA 
8730 DATA 
8740 DATA 
8750 DATA 
8760 DATA 
8770 DATA 
8780 DATA 
8790 DATA 
8800 DATA 
8810 DATA 
8820 DATA 
8830 DATA 
8840 DATA 
8850 DATA 
8860 DATA 
8870 DATA 
8880 DATA 
8890 DATA 
8900 DATA 
8910 DATA 
8920 DATA 
8930 DATA 
8940 DATA 
8950 DATA 
8960 DATA 
8970 DATA 
8980 DATA 
8990 DATA 
9000 DATA 


32,-195,-1,140,-22,-1,142 
-23,-1,32,-16,-2,173,-184 
-2,174,-183,-2,172,-185,-2 
32,-187,-2,76,-134,0,76,-89 
0,76,-65,0,96,0,0,0,0,0,0,0 


0,0,0,0,1,2,4,8,16,32,64 
128,169,0,141,-135,-1,172 
-17,-1,136,177,203,141,-136 
-1,16,13,169,1,141,-135,-1 
173,-136,-1,41,127,141,-136 
-1,56,173,-136,-1,233,32,16 

12.24.173, -136,-1,105,64 
141,-137,-1,76,-107,-1,56 
173,-136,-1,233,96,16,12,56 
173,-136,-1,233,32,141,-137 
-1,76,-107,-1,173,-136,-1 
141,-137,-1,169,0,133,206 
173,-137,-1,133,205,162,3 
24,38,205,38,206,202,208 
248,24,165,206,109,244,2 
133,206,96,0,0,0,142,-193 
-1,140,-194,-1,142,-191,-1 
169,0,141,-192,-1,162,3,24 
46,-191,-1,46,-192,-1,202 
208,246,160,255,200,56,173 
-191,-1,237,-194,-1,141 
-191,-1,173,-192,-1,233,0 
141,-192,-1,16,235,142,-191 
-1,96,0,0,0,0,141,-12,-2 

140, -13,-2,169,0,141,-14,-2 

141, -15,-2,24,173,-12,-2 
109,-14,-2,141,-14,-2,169,0 
109,-15,-2,141,-15,-2,202 

208.235.56.173, -14,-2,233,1 
141,-14,-2,173,-15,-2,233,0 
141,-15,-2,56,173,-14,-2 
237,-13,-2,141,-14,-2,168 
173,-15,-2,233,0,141,-15,-2 
170,96,0,0,0,0,174,-10,-1 

208.39.24.173, -14,-1,109 
-20,-1,141,-183,-2,173,-15 
-1,109,-21,-1,141,-184,-2 

56.173, -12,-1,237,-22,-1 
141.-185,-2,173,-13,-1,237 
-23,-1, 141,-186,-2,96,202 

208.39.56.173, -14,-1,237 
-22,-1,141,-183,-2,173,-15 
-1,237,-23,-1,141,-184,-2 
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9010 DATA 56,173,-12,-1,237,-20,-1 
9020 DATA 141,-185,-2,173,-13,-1,237 
9030 DATA -21,-1,141,-186,-2,96,202 
9040 DATA 208,39,56,173,-14,-1,237 
9050 DATA -20,-1,141,-183,-2,173,-15 
9060 DATA -1,237,-21,-1,141,-184,-2 
9070 DATA 24,173,-12,-1,109,-22,-1 
9080 DATA 141,-185,-2,173,-13,-1,109 
9090 DATA -23,-1,141,-186,-2,96,24 
9100 DATA 173,-14,-1,109,-22,-1,141 
9110 DATA -183,-2,173,-15,-1,109,-23 
9120 DATA -1,141,-186,-2,24,173,-12 
9130 DATA -1,109,-20,-1,141,-185,-2 
9140 DATA 173,-13,-1,109,-21,-1,141 
9150 DATA -186,-2,96,0,0,0,0,134,85 
9160 DATA 133,86,132,84,162,96,169,11 
9170 DATA 157,66,3,169,0,157,72,3,173 
9180 DATA -212,-2,32,B6,228,96,1 
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Circle s 

Jeffrey S. McArthur 


Every Atari graphics programmer needs to draw circles. This tutorial will 
show you how to draw a circle—and draw one fast—without jumping 
through hoops. There are several drawing utilities here, from an elemen¬ 
tary BASIC routine which takes 60 seconds to a machine language version 
that finishes in a fraction of a second. 

Program 1 draws circles, but takes more than a minute to draw a 
circle, no matter how big or small it is. 

Reflections 

A circle is symmetrical, so why don't we take advantage of its 
symmetry? If we know the value of one point, we can reflect it 
across the X-axis or across the Y-axis. That is, if we know (X,Y) is a 
point on the circle, then so is (X,-Y). The same is true for (-X,Y) 
and (-X,-Y). So we have to do only a quarter of the work. Circles 
are also symmetrical along the X = Y line. If we know (X,Y) is on 
the circle, then so is (Y,X). Now we have to find only an eighth of 
the points. Program 2 uses that method. 

Unfortunately, even doing only one-eighth of the work, we 
still need more than 10 seconds to draw the circle. Perhaps there is 
a better way. Instead of using sines and cosines, use the equation: 

X*X + Y*Y = R*R 

That isn't very useful, but we can rearrange the equation and get: 

Y = SQRT (R*R-X*X) 

So all we have to do is find Y for X = -R to R. However, since 
the square root function returns only the positive square root, we 
also have to plot the negative square root. Program 3 is an 
example of how to do that. This method is faster than using sines 
or cosines, but it still takes more than 16 seconds. So using 
Program 4, we reflect it, like we did in Program 2. 

Now we have a method that takes only five seconds on a 
large circle and is a lot faster on the smaller ones. If you take a 
close look at how Program 4 draws the circle, you see it draws 
lines of different lengths. This method works fine on a screen, but 
on a plotter the circle has flat spots. 
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A Faster Circle 

The screen is made up of an array of points. Each point is 
addressed by two coordinates (X,Y). However, X and Y are always 
integers. In Atari BASIC you can PLOT 0.5,0.5, but the points are 
rounded to integers. So if you are at one point on the circle and 
are trying to figure where the next point is, you can go in eight 
directions. 

If you divide the circle into quarters, then only three of those 
directions are valid. If you divide the circle into eight parts, you 
can go in only two directions. For example, if you are on the circle 
at (R,0), the next point is either (R-1,0) or (R-1,1). This method is 
called a potential function. Since the screen cannot plot points 
except with integers, there is a small error that is not always equal 
to zero. 

We want to keep the error as small as possible. We also reflect 
it eight ways as before. That takes only three seconds, and we 
never have to draw any long lines. Program 5 uses this method. 

Notice also that you can achieve the entire result using only 
addition and subtraction. Such programs can be easily converted 
to machine language since we don't have to multiply or divide. 
Program 7 is a machine language program to draw a circle. 
Program 6 calls the machine language and takes less than 2/10 
second to draw a circle. 

The machine language is called by a USR function. The 
parameters that are passed to it are, in order: the address of the 
code, the X coordinate of the center of the circle, the Y coordinate 
of the center of the circle, the radius, and the mode of drawing. 

The mode of drawing means 
0: turn point off 
1: turn point on 
2: invert point 

The only problem with the machine language program is that 
it does no checking to see if the circle goes off the screen. And no 
clipping is done. Therefore, if your circle goes off the screen, you 
will write over other memory. 

Program 1. Sines and Cosines 

100 REM CIRCLE DEMONSTRATION 
110 REM PROGRAM #1 
120 REM 
130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 61 S 
ECONDS 
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200 DEG 

210 GRAPHICS 8 

220 COLOR 1 

230 SETCOLOR 2,0,0 

240 A=160 

250 B=80 

260 R=50 

300 FOR ALPHA=0 TO 360 
310 X1=INT(RICOS(ALPHA)+ 0.5) 
320 Y1=INT(R*SIN(ALPHA)+0.5) 
330 PLOT A+X1,B+Y1 
340 NEXT ALPHA 


Program 2, Sines and Cosines Reflected 


100 
110 
120 
130 
140 

200 

210 

220 

230 

240 

250 

260 

270 

300 

310 

320 

330 

340 

350 

360 

370 

380 


410 


REM CIRCLE DEMONSTRATION 

REM PROGRAM #2 

REM 

REM 

REM THIS METHOD TAKES APPROXIMATELY 

ECONDS 

DEG 

GRAPHICS 8 
COLOR 1 

SETCOLOR 2,0,0 
A = 1 6 0 
B = 80 
R = 50 

PLOT A + R,B 
FOR A L P H A = 0 TO 45 
Xl=INT(R*COS<ALPHA)+0.5) 
Y1=INT(R*5IN(ALPHA)+0.5) 

PLOT A+X1,B+Y1 
PLOT A—X1,B+Y1 
PLOT A+X1,B—Y1 
PLOT A—X1,B—Y1 
PLOT A + Y1,B + X1 
PLOT A —Y1,B + X1 
PLOT A + Y1,B— X1 
PLOT A —Y1,B — X1 
NEXT ALPHA 


1 1 S 


Program 3. Square Root 

100 REM CIRCLE DEMONSTRATION 
110 REM PROGRAM #3 
120 REM 
130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 17 S 
ECONDS 

210 GRAPHICS 8 
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220 COLOR 1 

230 SETCOLOR 2,0,0 

240 A= 160 

250 B=B0 

260 R=50 

270 X0=—R:Y0=0 

300 FOR X1=—R TO R 

310 Y1=INT<0.5+SQR<R*R-X1*X1>) 

330 PLOT A+X0,B+Y0:DRAWTO A+X1,B+Y1 

335 PLOT A+X0,B-Y0:DRAWTO A+X1,B-Y1 

336 X0=X1:Y0=Y1 
340 NEXT XI 

Program 4. Square Root Reflected 

100 REM CIRCLE DEMONSTRATION 
110 REM PROGRAM #4 
120 REM 
130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 5 SE 
CONDS 

210 GRAPHICS 8 

220 COLOR 1 

230 SETCOLOR 2,0,0 

240 A=160 

250 B=80 

260 R=50 

270 X 0 = —R:Y 0 = 0 

280 X1=—R 

290 Y1=INT<0.5+SQR<R*R—X1*X1>) 

300 PLOT A+X0,B+Y0:DRAWTO A+X1,B+Y1 
310 PLOT A-X0,B+Y0:DRAWTO A-X1,B+Y1 
320 PLOT A+X0,B-Y0:DRAWTO A+X1,B-Y1 
330 PLOT A-X0,B-Y0:DRAWTO A-X1,B-Y1 
340 PLOT A+Y0,B+X0:DRAWTO A+Y1,B+X1 
350 PLOT A-Y0,B+X0:DRAWTO A-Y1,B+X1 
360 PLOT A+Y0,B-X0:DRAWTO A+Y1,B-X1 
370 PLOT A-Y0,B-X0:DRAWTO A-Y1,B-X1 
380 X 0 = X1:Y0 = Y1 

390 IF —XI>=Y1 THEN Xl=Xl+l:GOTO 290 

Program 5, Potential 

100 REM CIRCLE DEMONSTRATION 
110 REM PROGRAM #5 
120 REM 
130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 3 SE 
CONDS 

210 GRAPHICS 8 
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220 COLOR 1 

230 SETCOLOR 2,0,0 

240 A =16 0 

250 B=80 

260 R=50 

270 PH I=0 

280 Y1=0 

290 X1=R 

300 PHIY=PHI+Y1+Y1+1 
310 PHIXY = PHIY — X1 — X1 + 1 
400 PLOT fi+Xl,B+Yl 
410 PLOT A—X1,B + Y1 
420 PLOT A+X1,B—Y1 
430 PLOT A—X1,B—Y1 
440 PLOT A+Y1,B+X1 
450 PLOT A —Y1,B + X1 
460 PLOT A+Y1^B-X1 
470 PLOT A — Y1,B — XI 
500 PH I=PHIY 
510 Y1=Y1+1 

520 IF ABS(PHIXY)<ABS(PHIY) THEN PHI=PHIXY:X 
1=X1-1 

530 IF X1>=Y1 THEN 300 

Program 6. BASIC Call to Machine Language 

100 REM CIRCLE DEMONSTRATION 
110 REM PROGRAM #6 
120 REM 
130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 0.18 
33 SECONDS 
210 GRAPHICS 8 
220 COLOR 1 
230 SETCOLOR 2,0,0 
240 A =16 0 
250 B=80 
260 R=50 

270 P=7*16*16#16 
300 I=USR<P,A,B,R, 1 ) 

Program 7. Machine Language Circle Drawing Subroutine 

10 REM 28000- IS SUBROUTINE 
20 GOSUB 28000 
30 END 

28000 FOR 1=0 TO 758:READ A:POKE 28672+1,A:N 
EXT I 

28004 RESTORE 29500 

28005 FOR 1=1577 TO 1584:READ A:POKE I,A:NEX 
T I 
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28010 

2B672 

28678 

28684 

28690 

28696 

28702 

28708 

28714 

28720 

28726 

28732 

28738 

28744 

28750 

28756 

28762 

28768 

28774 

28780 

28786 

28792 

28798 

28804 

28810 

28816 

28822 

28828 

28834 

28840 

28846 

28852 

28858 

28864 

28870 

28876 

28882 

28888 

28894 

28900 

28906 

28912 

28918 

28924 

28930 

28936 

28942 

28948 

28954 


RETURN 

DATA 104,104,141,5,6,104 
DATA 141,4,6,104,141,7 
DATA 6,104,141,6,6,104 
DATA 141,9,6,141,12,6 
DATA 104,141,8,6,141,11 
DATA 6,104,104,141,10,6 
DATA 201,3,144,1,96,169 
DATA 0,141,13,6,141,14 
DATA 6,141,15,6,141,16 
DATA 6,24,173,4,6,109 
DATA 11,6,141,25,6,173 
DATA 5,6,109,12,6,141 
DATA 26,6,24,173,4,6 
DATA 109,13,6,141,29,6 
DATA 173,5,6,109,14,6 
DATA 141,30,6,56,173,4 
DATA 6,237,11,6,141,27 
DATA 6,173,5,6,237,12 
DATA 6,141,28,6,56,173 
DATA 4,6,237,13,6,141 
DATA 31,6,173,5,6,141 
DATA 14,6,141,32,6,24 
DATA 173,6,6,109,11,6 
DATA 141,33,6,173,7,6 
DATA 109,12,6,141,34,6 
DATA 24,173,6,6,109,13 
DATA 6,141,37,6,173,7 
DATA 6,109,14,6,141,38 
DATA 6,56,173,6,6,237 
DATA 11,6,141,35,6,173 
DATA 7,6,237,12,6,141 
DATA 36,6,56,173,6,6 
DATA 237,13,6,141,39,6 
DATA 173,7,6,237,14,6 
DATA 141,40,6,173,25,6 
DATA 141,0,6,173,26,6 
DATA 141,1,6,173,37,6 
DATA 141,2,6,173,38,6 
DATA 141,3,6,32,106,114 
DATA 173,27,6,141,0,6 
DATA 173,28,6,141,1,6 
DATA 32,106,114,173,25,6 
DATA 141,0,6,173,26,6 
DATA 141,1,6,173,39,6 
DATA 141,2,6,173,40,6 
DATA 141,3,6,32,106,114 
DATA 173,27.6,141,0,6 
DATA 173,28,6,141,1,6 
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28960 DATA 
28966 DATA 
28972 DATA 
28978 DATA 
28984 DATA 
28990 DATA 
28996 DATA 
29002 DATA 
29008 DATA 
29014 DATA 
29020 DATA 
29026 DATA 
29032 DATA 
29038 DATA 
29044 DATA 
29050 DATA 
29056 DATA 
29062 DATA 
29068 DATA 
29074 DATA 
29080 DATA 
29086 DATA 
29092 DATA 
29098 DATA 
29104 DATA 
29110 DATA 
29116 DATA 
29122 DATA 
29128 DATA 
29134 DATA 
29140 DATA 
29146 DATA 
29152 DATA 
29158 DATA 
29164 DATA 
29170 DATA 
29176 DATA 
29182 DATA 
29188 DATA 
29194 DATA 
29200 DATA 
29206 DATA 
29212 DATA 
29218 DATA 
29224 DATA 
29230 DATA 
29236 DATA 
29242 DATA 
29248 DATA 


32.106.114.173.29.6 
141,0,6,173,30,6 

141.1.6.173.33.6 

141.2.6.173.34.6 
141,3,6,32,106,114 
173,31,6,141,0,6 

173.32.6.141.1.6 

32.106.114.173.29.6 
141,0,6,173,30,6 

141.1.6.173.35.6 

141.2.6.173.36.6 
141,3,6,32,106,114 
173,31,6,141,0,6 

173.32.6.141.1.6 

32.106.114.173.14.6 
205,12,6,240,3,144 

10.96.173.13.6.205 

11.6.144.1.96.173 
11,6,133,4,173,12 

6.133.5.173.13.6 
133,205,173,14,6,133 

206.6.4.38.5.6 

205.38.206.56.165.205 

109.15.6.141.17.6 

165.206.109.16.6.141 

18.6.24.173.17.6 

229.4.141.19.6.173 
18,6,229,5,141,20 
6,173,18,6,16,27 

73.255.141.22.6.173 

17.6.73.255.24.105 
1,141,21,6,173,22 
6, 105,0, 141,22,6 

24.144.9.141.22.6 

173.17.6.141.21.6 
173,20,6,16,27,73 
255,141,24,6,173,19 
6,73,255,24,105,1 

141.23.6.173.24.6 
105,0,141,24,6,24 
144,9, 141,24,6, 173 

19.6.141.23.6.173 

17.6.141.15.6.173 
18,6,141,16,6,24 

173.13.6.105.1.141 

13.6.173.14.6.105 
0, 141,14,6, 173,22 
6,205,24,6,144,39 

208.8.173.21.6.205 
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29254 DATA 
29260 DATA 
29266 DATA 
29272 DATA 
29278 DATA 
29284 DATA 
29290 DATA 
29296 DATA 
29302 DATA 
29308 DATA 
29314 DATA 
29320 DATA 
29326 DATA 
29332 DATA 
29338 DATA 
29344 DATA 
29350 DATA 
29356 DATA 
29362 DATA 
29368 DATA 
29374 DATA 
29380 DATA 
29386 DATA 
29392 DATA 
29398 DATA 
29404 DATA 
29410 DATA 
29416 DATA 
29422 DATA 
29428 DATA 
29500 DATA 


23,6,144,29,173,19 
6,141,15,6,173,20 
6,141,16,6,56,173 
11,6,233,1,141,11 
6,173,12,6,233,0 
141,12,6,76,55,112 
173,2,6,133,205,169 
0,133,206,6,205,38 

206.6.205.38.206.6 

205.38.206.165.205.133 

4.165.206.133.5.6 
205,38,206,6,205,38 

206.24.165.205.101.4 

133.205.165.206.101.5 
133,206,173,0,6,133 

4.173.1.6.133.5 

70.5.102.4.70.5 

102.4.70.5.102.4 

24.165.205.101.4.133 

205.165.206.101.5.133 
206,24,165,205,101,88 
133,205,165,206,101,89 
133,206,173,0,6,41 
7,170,160,0,173,10 

6.208.10.189.41.6 

73.255.49.205.145.205 
96,201,1,208,8,189 

41.6.17.205.145.205 

96.189.41.6.81.205 
145,205,96,0,0,0 
128,64,32,16,8,4,2,1 
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Joystick Cursor 
Contr ol 

Brenner 


This article will show you how to gain even more control of the Atari 
editing system. By using a joystick rather than the control-arrow keys, 
you can have instant, accurate cursor control. 

This BASIC program contains a small machine language routine 
which will be stored in memory and executed during vertical 
blank. The vertical blank is the period of time between the 
drawing of the last line of the television screen and the movement 
of the electron beam to the top of the screen to begin drawing the 
first line. During this period, the machine language routine will be 
at work. Since the vertical blank occurs 60 times per second, the 
routine will be executed 60 times per second. The routine is 
executed so fast that there is no noticeable delay in computer 
operation. 

The function of the routine is to change the joystick values 
into the control-arrow key codes and then store this new value in 
the register which the Atari uses to store keyboard data (764). Try 
this: 

POKE 764,0 

Because zero is the keyboard code (not ASCII, but an internal 
code) for the L character, the letter L will be displayed on the 
screen. The keyboard codes for the four direction keys and the 
corresponding joystick values follow: 

CONTROL-Up = 142 Joystick Up = 14 

CONTROL-Down = 143 Joystick Down = 13 

CONTROL-Left = 134 Joystick Left = 11 

CONTROL-Right= 135 Joystick Right = 7 

Basically, here is how the program will work. Every l/60th of 
a second, the routine will check the joystick port. If the joystick 
has been moved up, down, left, or right, then a direction code, 
corresponding to the position of the joystick, is stored in location 
764. The Atari will then automatically display its character for that 
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code. In addition, a counter will be used to determine when a 
direction should be repeated. If the joystick is held to one position 
for several seconds, that direction will repeat just the way it 
would on a keyboard. If the joystick trigger is held down as well, 
the direction will repeat extra fast. Thus the joystick merely 
replaces the control and direction keys, and is best suited for use 
as a programming aid. 

Joystick Cursor Control 

5 REM JOYSTICK/CURSOR CONTROL 

10 DATA 104,162,6,160,147,169,7,32,92,228,16 
9,0,133,204,133,205,133,206,96,173,120,2, 
201,15,240,24 

20 DATA 197,205,240,48,133,205,201,14,240,23 
,201,13,240,23,201,11,240,23,201,7,240,23 
,208,6,169,0 

30 DATA 133,204,133,205,76,98,228,169,142,20 
8,10,169,143,208,6,169,134,208,2,169,135, 
141,252,2,208,234 

40 DATA 166,204,240,9,166,206,240,13,198,206 
,76,98,228,169,40,133,206,133,204,208,213 
,162,5,134,206,174 

50 DATA 132,2,208,180,162,1,134,206,208,174, 

0,-1 

60 1=0:C=0:RESTORE 10 

70 READ N:C = C + N:IF N=-l THEN 90 

80 POKE 1664+1,N:1=1+1:GOTO 70 

90 IF C=15702 THEN A=USR(1664):STOP 

100 PRINT "THERE IS AN ERROR IN THE DATA" 
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Atari Verify 

Michael J. Barkan 


Using less than IK of memory, this utility program for cassette can save 
you a lot of time and frustration. 

I recently made a CSAVE and a LIST "C:" (after about five hours of 
typing) and neither of them saved the program. This sort of thing 
is more than distressing. My solution is neither elaborate nor 
entirely original, but it works. 

Ed Stewart's article in COMPUTEl's Second Book of Atari on 
backing up machine language tapes served as the inspiration for 
my program. Stewart's program reads a block of data from the 
cassette tape, puts it in a string, reads another block, adds it to the 
string, and so on. The string eventually contains the entire 
program. Of course, the string needs to be as big as the comput¬ 
er's memory, so I couldn't use the method directly. 

I know absolutely nothing about machine language except 
that when I try to change something, the system crashes—so I 
didn't change anything. The trick was to fool the machine 
language program. Locations 203 and 204 (decimal) contain the 
starting address of string A$. All I had to do (sounds easy, now) 
was reset these locations so that the machine language subroutine 
would "forget" that it had already put something into A$. This 
means that A$ needs to hold a maximum of only 128 bytes, the 
size of one cassette data block. Therefore, this program, once 
running, takes up less than IK of memory; A$ just keeps reusing 
the same 128 bytes. 

To use this utility, type it in and save it with LIST "C:". Load 
the program you want to save, or start typing in a new program. 
Make sure your program starts at line 10 or higher. CSAVE it. Now 
ENTER "C:" this utility and run it. It will ask you to start loading 
the tape with your new program. If the tape runs all the way 
through and ends with an end-of-file flag, you'll get a "GOOD 
TAPE" message. If the tape is not readable, you'll get an error 
message (my favorite is 143), but your program is still in the computer, 
so you can try again . Delete lines 0 through 9 first, though. 

If your tape is of the ENTER "C:" variety, just change the 255 
in line 4 to 0, and the program will verify it, too. 


165 



Utilities 


That's all there is to it. Not quite like having a disk drive, but 
at least now tape storage will be far less likely to cause you 
distress. 


Atari Verify 

0 REM ATARI CASSETTE VERIFY UTILITY 
C9 SPACES} BY MICHAEL J. BARKAN 

1 CLR :DIM At(128):P0KE 203,ADR(At)—(INT(ADR 
(A*)/256)*256):POKE 204,INT(ADR( A t)/256):R 
EM POKE START LOCATION OF At 

2 FOR 1=1536 TO 1565:READ A:POKE I,A:NEXT I: 
TRAP 7:REM POKE IN M.L. ROUTINE AND SET TR 
AP FOR END OF FILE FLAG 

3 ? CHRt(125);"INSERT TAPE TO TEST":? "PRESS 

ANY KEY TO BEGIN” 

4 CLOSE #1:OPEN #1,4,255,"C:":REM CHANGE 255 

TO 0 FOR TAPES WITH LONG INTER-RECORD GAP 
S 

5 FOR 1=1 TO 100000:GET #1,B:X=USR(1536):REM 

LOOP THROUGH THIS MORE TIMES THAN ANYONE 
WILL EVER NEED 

6 POKE 203,ADR(At)-(INT(ADR(A*)/256)*256):PO 
KE 204,INT(ADR(At)/256):NEXT I:REM EUREKA! 

RESET POINTER TO START OF At 

7 IF PEEK(195)=136 THEN CLOSE #1:? CHRt(125) 
;"GOOD TAPE”:END :REM LOOK FOR END OF FILE 

FLAG 

8 ? "ERROR - ";PEEK(195):END :REM TAPE IS NO 

T READABLE 

9 DATA 104,174,138,2,134,61,160,0,162,0,185, 
0,4,129,203,200,230,203,208,2,230,204,196, 
61,240,3,76,10,6,96 
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Automate Your Atari 

Joseph J. Wrobel 


Make your programs RUN automatically or PRINT a personalized 
message when your disk drive boots up. This short program allows you to 
create an AUTORUN. SYS file that will execute the commands you enter. 
It's easy and simple to use. 

The Atari Disk Operating System (DOS) supports the use of a file 
named AUTORUN.SYS that has a very special characteristic. At 
system start-up, the DOS loads and runs this file automatically if 
it exists on the mounted diskette. This allows you to arrange for 
your Atari to come up smart. 

The Potential 

The AUTORUN.SYS file could contain a machine language 
program that loads and runs. It could also contain just a short 
program to do some routine operations like setting the screen 
margins or color before passing control to BASIC. However, the 
major use I've seen for AUTORUN.SYS is to direct the system to 
load and run a BASIC program. Not only does this type of opera¬ 
tion save you some time and effort, but it also allows an unskilled 
operator, like a student, to turn on the machine and interact with 
an application program without getting into the details of LOAD 
or RUN instructions. 

The Problem 

So far, so good. Why doesn't everyone use the AUTORUN.SYS 
file? Apparently the major obstacle to its more widespread use is 
the fact that it is a machine language routine. Thus, it requires 
knowledge of 6502 machine language and, for complex opera¬ 
tions, some knowledge of the intricacies of the Atari Operating 
System to create a functional AUTORUN.SYS file. Unless 
someone came up with a program to do it for you. 

"Automate" (Program 1) is just such a program. If you key in 
this program correctly and run it, Automate will help you create 
your own personal AUTORUN.SYS file, and it won't hurt a bit. 
The program starts by asking you to input the series of commands 
you wish to be executed at start-up. You enter the commands 
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exactly as you would if the machine came up in its normal ready 
state. The only limit on the number of commands is that the total 
number of characters entered may not exceed 196 (including the 
Atari end-of-line character added each time you hit RETURN). 

The program keeps track of the number of characters entered and 
will prevent you from exceeding this limit. After you've entered 
the final command in the sequence, the program will create an 
AUTORUN.SYS file on the mounted diskette. Note that any 
previous AUTORUN.SYS file will be overwritten by this opera¬ 
tion. 

The next time you boot up from the diskette bearing the 
AUTORUN.SYS file, the AUTORUN.SYS program will be run. 
This will cause the commands you entered to be executed in the 
order they were entered (although they will not be displayed), 
then control will be returned to the system. The commands, of 
course, must be compatible with the cartridge in use (BASIC, 
Assembler Editor, etc.) or an error will result. If at any time you 
wish to boot up from a diskette and circumvent the 
AUTORUN.SYS file, just hold the OPTION key down until 
system initialization is complete. The AUTORUN.SYS file created 
by Automate checks that key and, if it finds it depressed, the 
command list will not be executed. 

A BASIC Example 

To demonstrate the use of the program, a single command BASIC 
example will be presented. Let us suppose there exists a BASIC 
program entitled BEGIN which you would like to run automati¬ 
cally at start-up. Using Automate, you enter (as Command #) the 
statement: 

GR.0:?"Autoboot in progress.":RUN"D:BEGIN" 
then press RETURN. Assuming you entered the command 
correctly, you respond to the question: 

Is that correct (Y/N)? 

by pressing Y. When the program asks if there are: 

More commands (Y/N)? 

respond by pressing N. The program then creates the 
AUTORUN.SYS file and displays READY when it's done. If you 
now turn off your computer and switch it on again, you will find 
that it "comes up" running program BEGIN. How simple can you 
get? 
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Description of Operation 

This section is for those who are not satisfied with just running 
the program, but are also interested in knowing how it works. 
Let's first take another look at Program 1. Automate consists of 
three major sections. The first section (lines 50 through 130) are for 
documentation and initialization. The program employs two key 
numeric variables: I, which counts the number of commands 
entered, and L, which counts the total number of characters in the 
command list. The second program section (lines 140 through 350) 
INPUTS the commands one at a time. As each command is 
entered, the program allows for error correction, checks 
command list size, packs the command into B$ and tacks on an 
ATARI end-of-line (EOL) character, namely CHR$(155). The third 
section of the program (lines 360 through 600) actually creates the 
AUTORUN.SYS file. 

Before this third section is discussed, I direct your attention 
to Program 2. This is the assembly listing for the core of the 
AUTORUN.SYS program. What this machine language program 
does, in a nutshell, is to temporarily take over the task of 
supplying screen editor data by substituting a new device handler 
table and "get character" routine for the default ones provided by 
the operating system. At system start-up while the 
AUTORUN. SYS program is active, it intercepts all the keyboard 
entry requests and feeds out, one character at a time, the 
commands which you have entered. When it has sent out the last 
character of the last command in the list, it re-installs the default 
screen editor handler table, and the system takes over from there. 

Returning to the section of the BASIC program which creates 
the AUTORUN. SYS file, you will find that it consists primarily of 
three loops. Loop one (lines 490 through 510) PUTs the core 
program and its associated 6-byte header into the file as READ 
from the DATA statements in lines 430 through 480. 

Note that in line 500 of Automate, two numbers are changed 
from the values shown in the DATA statements before putting 
them into the AUTORUN.SYS file. The first is a byte in the 
AUTORUN. SYS file header which gives the end of the program 
when loaded in memory. This is the sum of the core program 
length and the number of bytes in the command list. Automate 
also alters the value of the immediate argument of the CPY 
instruction in line 370 of Program 2. This byte is set equal to the 
total number of characters (including EOLs) in the command list. 
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Loop two (lines 530 through 550) PUTs in the command list which 
resides in B$. Finally, loop three (lines 580 through 590) adds a 
12-byte postscript to the file, which provides the system with the 
initialization and run locations for the routine. 

The BASIC program here provides an easy way to create a 
useful AUTORUN.SYS file. There are dozens of ways this file can 
be used. It doesn't necessarily have to be a serious application. 

For example, it's sort of fun just to start up my machine, listen to it 
go through its disk machinations, then see it automatically 
display the personalized greeting: 

READY WHEN YOU ARE, J.W.! 

Program 1. Automate 

50 1=0:L=0:MAX=196 

60 DIM A*(MAX),B*(MAX),R*(1) 

70 OPEN #1,4,0,"E:":OPEN #2,4,0,"K:" 

80 7 "This program helps you to create" 

90 ? " a personalized AUTORUN.SYS -file" 

100 ? “ which, -following the disk boot" 

110 7 ”{3 SPACES}process, automatically issu 

120 7 "{4 SPACES} a set of commands that L II-U" 

130 7 "{5 SP ACES } sp ec i-f y . " 

140 1=1+1 

150 7 :? "Please enter command #";!;"«" 

160 7 :INPUT #1;A$ 

170 POKE 766,1:7 :? "Command #";I;":";A$:POK 
E 766,0 

180 7 :? "Is that correct (Y/N)7 "; :G E T #2,X 

:? :R*=CHRt(X) 

190 IF R$="Y" OR R$="y" THEN 220 

200 IF R$="N" OR R$="n" THEN 150 

210 GOTO 170 

220 X=L+LEN<A*)+1-MAX 

230 IF X< =0 THEN 260 

240 7 :? "Command #";I;“ is ";X;" character( 

s) " 

250 7 "too 1ong.":1=1-1:GOTO 270 
260 B* <L+1)=A$: L = LEN <B*) : B* (L+l > =CHR$ (155) : L 
= L+ 1 

270 7 :? "Current command list:" 

280 POKE 766,1:7 :? B*:POKE 766,0 
290 IF L > = M A X — 1 THEN 7 "Command list is -full 
. " :7 :GOTO 370 

300 7 "Command list can hold ";MAX—L-l;" mor 
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310 ? " character (5). " 

320 ? :? "More commands (Y/N>? ";:GET #2,X:R 

$=CHR$(X) 

330 IF R*=”Y” OR R $ =”y" THEN 140 
340 IF R*="N" OR R*="n" THEN 360 
350 GOTO 300 
360 ? CHR*(125); 

370 ? "Mount diskette which is to bear" 

380 ? " the AUTORUN.SYS File, then" 

390 ? " press RETURN. ";:GET #2,X:CL0SE #1: 

CLOSE #2 

400 ? CHR$(125);:? "Writing AUTORUN.SYS file 
410 OPEN #1,8,0, “D:AUTORUN.SYS" 

420 REM PUT OUT THE HEADER AND THE CORE MACH 
INE LANGUAGE PROGRAM 
430 DATA 255,255,0,6,59,6 

440 DATA 173,31,208,41,4,240,10,169,18,141,3 
3,3 

450 DATA 169,6,141,34,3,96,251,243,51,246,33 
, 6 

460 DATA 163,246,51,246,60,246,76,228,243,0, 
238,33 

470 DATA 6,172,33,6,192,0,208,10,169,0,141,3 

3 

480 DATA 3,169,228,141,34,3,185,59,6,160,1,9 
6 

490 FOR 1=1 TO 66:READ X 

500 IF 1=5 OR 1=48 THEN X=X+L 

510 PUT #1,X:NEXT I 

520 REM ADD THE COMMAND LIST 

530 FOR 1=1 TO L 

540 X =ASC<B* <I, I > ) 

550 PUT #1,X:NEXT I 

560 REM APPEND INITIALIZE AND RUN VECTORS 

570 DATA 226,2,227,2,0,6,224,2,225,2,17,6 

580 FOR 1=1 TO 12:READ X 

590 PUT #1,X:NEXT I 

600 CLOSE #1:? CHRt(125);:END 


Program 2 . Assembly Listing 

D01F 0100 CONSOL 

0320 0110 DEVTAB 

E400 0120 OLDDHT 

0130 ; 

0000 0140 

0600 AD1FD0 0150 INIT 

;Load the console 


= *D01F 

= *0320 

= *E400 

*= *0600 

LDA CONSOL 

switch register 
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0603 2904 0160 AND #$04 

; and check -for the OPTION key. 

0605 F00A 0170 BEQ RUN 

;If it’s pressed, branch to the RTS. 
0607 A912 0180 LDA #NEWDHT&$00FF 

;Otherwise, install the vector 
0609 8D2103 0190 STA DEVTAB+1 

;to the new device handler table 
060C A906 0200 LDA #NEWDHT/256 

;in the appropriate place in the 
060E 8D2203 0210 STA DEVTAB+2 

jdevice table and 
0611 60 0220 RUN RTS 

;return. 

0230 ; 

0612 FBF3 0240 NEWDHT .WORD $F3FB 
;This is the replacement 
0614 33F6 0250 .WORD $F633 

jscreen editor handler 
0616 2106 0260 .WORD GET-1 

;vector table. All the 
0618 A3F 6 0270 .WORD $F6A3 

jvectors have their default 
061A 33F6 0280 .WORD $F633 

;values except for the 
061C 3CF6 0290 .WORD $F63C 

;GET routine, which 
061E 40 0300 .BYTE $4C 

;points to the replacement 
061F E4F3 0310 -WORD $F3E4 

jroutine below. 

0320 ; 

0621 00 0330 COUNTR .BYTE 0 

;character counter 
0340 ; 

0622 EE2106 0350 GET INC COUNTR 

;Increment the character 

0625 AC2106 0360 LDY COUNTR 

;counter. Compare it with 
0628 C000 0370 CPY #ENDLST—BEGLST 

;the command list length. 

062A D00A 0380 BNE CONT 

;If not equal, branch to CONT. 

062C A 9 0 0 0390 LDA #OLDDHT&$00FF 

;Otherwise, reinstate the 
062E 8D2103 0400 STA DEVTAB+1 

;default screen editor handler 
0631 A9E4 0410 LDA #0LDDHT/256 

;table vector at the proper 
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0633 SD2203 0420 STA DEVTAB+2 

;spot in the device table. 

0636 B93B06 0430 CONT LDfi BEGLST—1 , Y 

;Fetch the next character 
0639 A001 0440 LDY #1 

;from the command list and 
063B 60 0450 RTS 

0460 ; 

0470 BESLST 

04B0 ;The command list goes here 

063C 0490 ENDLST .END 
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The Wedge: 

Addins Commands 
To Atari BASIC 

Charles Brannon 


You can customize your Atari BASIC by adding new commands to the 
language itself. To demonstrate how to do it, the program below adds five 
DOS commands to BASIC—including a directory command. There are 
two versions of the same program. Program 1 is a BASIC loader. Type it in 
normally, and it creates a machine language program for you from the 
information in the DATA statements. Program 2 is an assembly listing of 
the same routine. It shows how the machine language works and is useful 
to programmers who know machine language or want to learn more about 
it. It's not necessary, however, to understand Program 2 in order to make 
good use of Program 1. 

A letter published some months ago in COMPUTE !'s "Ask The 
Readers" column regretted the need for "this POKE or that 
POKE" to accomplish various tasks. The required solution is an 
"expanded command set." An enticing prospect, adding 
commands to a language, and a seemingly impossible one, too. 

Atari BASIC, like most microcomputer BASICs, is burned 
into nonvolatile ROM memory. The machine language routines to 
list, save, edit, and run your program cannot be altered or patched 
in any way. (However, on a 48K Atari, you can copy the BASIC 
cartridge to disk as a binary file, modify it with a machine 
language monitor, and load it into the top of memory where it will 
act almost as a ROM cartridge.) 

The most common (and easiest to implement) extension of a 
language is the addition of immediate mode commands. These 
direct commands, which are not usually executed in a program, 
but from the keyboard, include RUN, SAVE, LIST, NEW, DOS, 
etc. Thanks to Atari's modular Operating System (OS), we can 
easily add this type of command. 

An Overview of Atari’s Operating System 

To understand how the wedge works, we'll have to delve into the 
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mysterious 10K ROM. If you just want to use the program and 
aren't concerned about the technical details, feel free to skip 
ahead. The operating system (OS) of a computer is responsible for 
all input and output to and from disk, cassette, printer, and 
keyboard. It can also perform such chores as memory manage¬ 
ment and screen display. On many microcomputers, the OS does 
not exist as a separate entity, but is incorporated into the BASIC 
interpreter. 

The Atari, on the other hand, is the first microcomputer with 
a general-purpose, plug-in operating system. This goes hand in 
hand with the use of program and game cartridges. All programs 
running on an Atari use a common set of routines, from floating 
point arithmetic to high-resolution graphics routines such as 
PLOT, DRAWTO, and FILL. 

A Mini-Language 

So, instead of BASIC providing a marginal operating system 
(which on many machines is a maze of machine language calls, 
requiring incompatible register setup and initialization), we have 
a BASIC cartridge which uses universal OS routines. A good OS 
simulates a mini-language. It provides documented, unchanging 
(between various revisions), unified subroutines with full param¬ 
eter passing and error-checking. 

Furthermore, a good OS is extensible. All the major routines 
and subroutines are accessed indirectly, through pointers. That is 
why the Atari is so flexible. If you want to change the personality 
of your computer, just change one of the vectors of a given routine 
to point to your machine language routine. Your program can 
then pass on control to the default program. 

A Flexible Computer 

This indirection is visible throughout the Atari. At the low end is 
color indirection, where you can change the color of anything 
drawn to another color merely by changing one color register. The 
default character set pointer can be changed to point to a user- 
designed character set. The system interrupt routines and display 
list interrupts are all fully accessible via a table of pointers. The 
BREAK key can be masked; the keyboard scan routine can be 
modified or by-passed; exotic peripherals can be serviced. And all 
input/output devices are user-definable, from the keyboard to the 
disk drive. 

A notable peculiarity of the Atari is that not just the disk 
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drive or printer, but also the TV screen and keyboard, are consid¬ 
ered peripherals. You don't print a character to the screen on the 
Atari; you send a character or buffer to the Editor device. 

Chain of Command 

Through the hierarchy of a subset of the OS, the CIO (Central 
Input/Output), BASIC politely requests a line of input from screen 
and keyboard. After BASIC makes this request, control is passed 
to CIO, wnich calls the Editor. The Editor lets the user enter a line 
of text (which can be up to three screen lines long). The user can 
use cursor controls to edit the line or to move the cursor anywhere 
on the screen to edit another line. 

When RETURN is pressed, the line the cursor is on is placed 
into a buffer (block of memory). Next, CIO gives this information 
to the calling routine via another buffer. The CIO is designed to be 
easy to use from machine language. If you think it sounds compli¬ 
cated, imagine performing all these tasks without an operating 
system. 

Driving a Wedge 

We don't have to modify BASIC at all. We just "wedge" our way 
into the Editor device E:. As intimated, even the "system" devices 
such as E: or D: (the disk driver) can be replaced. Usually, 
however, you don't want to replace a vectored routine; you just 
want to insert an additional task. In this case, you point the vector 
to your routine, which performs the little extra task and then calls 
the main routine. This by-pass explains the term wedge. 

The Handler Table contains the names of all the devices. If 
you wanted to, you could change the name of the cassette device 
(C:) to another character, such as T: (for tape), by finding the C in 
the table and changing it to a T. Along with each name, the 
Handler Table includes an address that points to another table of 
addresses that point to all the functions of that particular device. 
This is multilevel indirection. There is even a vector that points to 
a list of vectors! 

We want to modify the Editor, so we change the first vector to 
point to our list of vectors. All we really need to do is change one 
of the vectors in the Editor's list of vectors, the "Get Character" 
address. Since this list is in ROM, at $E400, we need to copy this 
16-byte table to RAM, modify it, and repoint the Handler Table to 
our RAM version of the Editor Handler Table. 
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Wedging into a Vector 



A Monitor Monarchy 

Now that we've got the operating system calling our routine 
instead of the Editor in ROM, we've got total control of almost all 
console input/output. The Get Character routine, instead of calling 
E:, asks us for an ASCII character, presumably from the screen 
and keyboard. We comply by calling the default routine in ROM. 

This seems rather roundabout, doesn't it? But we reserve the 
right to monitor all characters returned to the operating system, 
and hence, BASIC. We get to examine every line of input before 
that line is returned to BASIC, where any strange new commands 
would be scorned with an error message. 

So, we just catch the carriage return code and leisurely 
examine the input buffer, located at $0580. All we have to do is 
compare it against a table of commands, and, if we find a match, 
execute the command. If not, we just return the line to CIO (and 
CIO gives it back to BASIC) on the assumption that it's either a 
blank line, a BASIC command, or a syntax error. Sounds simple, 
but such a "parsing" routine is quite a headache to code and 
understand. 
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A REMarkable Solution 

After we've intercepted and executed the line, how do we prevent 
a syntax error when we return the line to BASIC? (And since 
we've "cut in," we have to follow protocol and return something.) 
One solution would be to erase the buffer by fillin g it with spaces. 
An easier trick would be to change the first character of the line to 
a period; for example, SCRATCH D:TEMP would become 
.CRATCH D:TEME Since BASIC interprets a leading period as an 
abbreviation for REM, BASIC conveniently ignores the command 
and returns READY (which it wouldn't if we merely blanked out 
the line). 

The parser routine makes it easy for you to add commands. 
Just place the name of each command, followed by a zero, and the 
address where you want control to be transferred after the 
command is recognized, in COMTBL (COMmand TaBLe, see 
Program 2). The length of the line is found in LENGTH, and the 
second character after the command is returned in PARMS (since 
this is where any parameters would be). 


command xxx,yyy,zzz 

t t 

PARMS LENGTH 


Note that the length is one character past the end of the string, 
assuming you number from zero. Your command processor can 
find the command string in LBUFF ($0580). 

Theoretically, this technique can be used to add commands to 
any language environment. You only have to find a way to make 
the language processor ignore commands when you return the 
line (such as blanking it out). Of course, the commands them¬ 
selves are usually language-specific. 

Copious Commands 

Now the way is open to add a plethora of BASIC utility 
commands. Of course, these will have to be written in machine 
language and interfaced with the Wedge. I've included the resi¬ 
dent DOS commands LOCK, UNLOCK, RENAME, and 
SCRATCH, as well as DIR to print the directory. 

You can study the assembly listing (Program 2). If you have 
an assembler, try typing it in and modifying it. It contains a 
wealth of techniques and information, such as pattern matching, 
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indirect subroutine calls, making a routine "RESET-proof," using 
CIO for input/output from machine language, long branching, 
modular programming, calling BASIC's ERROR routine, even 
pressing SYSTEM RESET from within a program. 

Using the Wedge 

A machine language program can be hard to enter into the Atari 
without an assembler. Program 1 will write the machine language 
to disk in the form of an AUTORUN. SYS file. Save this program 
so you can write copies to any disk. When you boot this disk the 
AUTORUN file will automatically load and initialize the Wedge. 
You can use the Wedge's console DOS directly, without waiting for 
the disk utility package (DUESYS) to load in, and without losing 
any programs in memory. 

Commands provided are DIR (lists the directory of drive 
one), LOCK, UNLOCK, SCRATCH (delete), and RENAME. 
Remember to include the D: (or D2: for drive two, if you have one) 
in the filename with all the commands except DIR. With 
RENAME, use the convention RENAME D: oldname, newname. 

The Wedge is "persistent"; in other words, it reinitializes 
itself when you press SYSTEM RESET, so it's kind of hard to get 
rid of it. An additional command, KILL, removes the Wedge. You 
can bring back the Wedge with PRINT USR (7936). 

These commands are just a start. Many others are possible: 
RENUMBER, FIND, AUTO line number, UPDATE (removes 
unused variables from the variable name table), and more. 

Program 1. BASIC Wedgemaker 

100 REM WEDGE BASIC LOADER 

110 GRAPHICS 0:7 "Insert a DOS 2.0S diskette 

120 7 "with DOS.SYS in drive 1 . " 

130 7 :? "Press when you have done th 

is." 

140 IF PEEK(764)<>12 THEN 140 
150 POKE 764,255 

160 7 :? "Now writing the Wedge AUTORUN.SYS 

file" 

170 TRAP 190 

180 OPEN #1,8,0,"D:AUTORUN.SYS”:TRAP 40000:G 
OTO 200 

190 CLOSE #1:7 :? "Can’t open AUTORUN.SYS fo 

r write.":END 

200 PUT #1,255:PUT #1,255:REM SFFFF HEADER 
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210 PUT #1,0:PUT #1,31:REM $1F00 START 
220 PUT #1,74:PUT #1,33:REM *214A END 
230 FUR 1=7936 TO 8522+6:REM INCLUDE 6-BYTE 
AUTORUN 

240 READ A:TRAP 310:PUT #1,A:TRAP 40000 
250 CKSUM=CKSUM+A 
260 NEXT I 

270 IF CKSUMO60435 THEN ? " {BELLJBad number 
in DATA statements.":ERR=1 
280 CLOSE #1 

290 IF NOT ERR THEN ? :? "DATA ok, write su 
ccessful . " 

300 END 

310 ? :? "Error-";PEEK(195);" when attemptin 


g disk wri te. '*: CLOSE #1:END 
320 REM 

330 REM Following is the decimal 
340 REM equivalent o-f Wedge 1.0 
350 REM Must be typed in perfectly 
360 REM in order to function. 

370 REM 

7936 DATA 104,165,12,141,37,31 
7942 DATA 165,13,141,38,31,169 
7948 DATA 36,133,12,169,31,133 
7954 DATA 13,32,43,31,32,92 
7960 DATA 31,169,75,141,231,2 
7966 DATA 169,33,141,232,2,96 
7972 DATA 32,64,21,32,11,31 
7978 DATA 96,169,80,141,68,3 
7984 DATA 169,31,141,69,3,169 
7990 DATA 0,141,73,3,169,12 
7996 DATA 141,72,3,169,11,141 
8002 DATA 66,3,162,0,32,86 
8008 DATA 228,152,48,1,96,76 
8014 DATA 55,33,65,116,97,114 
8020 DATA 105,32,87,101,100,103 
8026 DATA 101,155,160,0,185,26 
8032 DATA 3,201,69,240,7,200 
8038 DATA 200,192,34,208,243,96 
8044 DATA 200,169,165,153,26,3 
8050 DATA 200,169,31,153,26,3 
8056 DATA 162,0,189,0,228,157 
8062 DATA 165,31,232,224,16,208 
8068 DATA 245,169,184,141,169,31 
8074 DATA 169,31,141,170,31,24 
8080 DATA 173,4,228,105,1,141 
8086 DATA 186,31,173,5,228,105 
8092 DATA 0,141,187,31,169,0 
8098 DATA 133,203,96,251,243,51 
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8104 DATA 
8110 DATA 
8116 DATA 
8122 DATA 
8128 DATA 
8134 DATA 
8140 DATA 
8146 DATA 
8152 DATA 
8158 DATA 
8164 DATA 
8170 DATA 
8176 DATA 
8182 DATA 
8188 DATA 
8194 DATA 
8200 DATA 
8206 DATA 
8212 DATA 
8218 DATA 
8224 DATA 
8230 DATA 
8236 DATA 
8242 DATA 
8248 DATA 
8254 DATA 
8260 DATA 
8266 DATA 
8272 DATA 
8278 DATA 
8284 DATA 
8290 DATA 
8296 DATA 
8302 DATA 
8308 DATA 
8314 DATA 
8320 DATA 
8326 DATA 
8332 DATA 
8338 DATA 
8344 DATA 
8350 DATA 
8356 DATA 
8362 DATA 
8368 DATA 
8374 DATA 
8380 DATA 
8386 DATA 
8392 DATA 


246,184,31,163,246,51 
246,60,246,76,228,243 

56.1.1.125.32.32 

62.246.8.201.155.240 
4,230,203,40,96,140 
181,31,142,182,31,165 
203,240,86,169,51,133 
205,169,32,133,206,160 
0,177,205,217,128,5 

208.12.200.177.205.240 

40.196.203.208.240.76 
37,32,201,255,240,53 
160,0,177,205,240,9 
230,205,144,2,230,206 
76,242,31,24,165,205 
105,3,133,205,144,2 
230,206,76,215,31,200 
132,204, 177,2 05, 141,183 
31,200,177,205,141,184 
31,108, 183,31, 160,0 

169.46.153.128.5.169 
0, 133,203, 169, 155, 172 
181,31,174,182,31,40 
96,68,73,82,0,125 
32,83,67,82,65,84 
67,72,0,22,33,76 
79,67,75,0,27,33 
85,78,76,79,67,75 
0,32,33,82,69,78 
65,77,69,0,37,33 
75,73,76,76,0,42 

33.255.155.50.54.32 

70.82.69.69.32.83 

69.67.84.79.82.83 
155,155,0,0,68,58 

42.46.42.162.80.169 
12,157,66,3,32,86 
228,162,80,169,3,157 
66,3,169,6,157,74 

3, 169, 120, 157,68,3 

169.32.157.69.3.32 

86.228.152.16.3.76 
55,33,162,80,169,5 
157,66,3, 169, 100, 157 

68.3.141.68.3.169 
32,157,69,3,141,69 
3, 169,20, 157,72,3 
141,72,3,32,86,228 
152,48, 13, 169,9, 141 
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8398 

8404 

8410 

8416 

8422 

8428 

8434 

8440 

8446 

8452 

8458 

8464 

8470 

8476 

8482 

8488 

8494 

8500 

8506 

8512 

8518 

9000 

9010 

9020 


DATA 66,3,162,0,32,86 
DATA 228,76,166,32,162,80 
DATA 169,12,157,66,3,32 
DATA 86,228,76,30,32,162 
DATA 80,157,66,3,169,0 
DATA 157,73,3,164,203,153 
DATA 128,5,56,152,229,204 
DATA 157,72,3,24,169,128 
DATA 101,204,157,68,3,169 
DATA 5,105,0,157,69,3 
DATA 32,86,228,152,16,3 
DATA 76,55,33,76,30,32 
DATA 169,33,76,229,32,169 
DATA 35,76,229,32,169,36 
DATA 76,229,32,169,32,76 
DATA 229,32,173,37,31,133 
DATA 12,173,38,31,133,13 
DATA 76,116,228,72,162,80 
DATA 169,12,157,66,3,32 
DATA 86,228,104,162,255,154 
DATA 133,185,76,64,185 
REM DATA FOR AUTORUN ADDRESS 
DATA 224,2,225,2,1,31 
REM END OF DATA STATEMENTS 


Program 2. Wedge Assembly Source 


0100 
0110 
0120 
0130 
0140 
0150 
016 0 
0 170 
0180 
0 190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 


; The Atari Wedge 


ICCOM 

ICBADR 

ICBLEN 

ICAUX 1 

CORN 

CPTXTR 

CGTXTR 

CPBINR 

CCLOSE 

CIO 

OPDIR 

HATABS 

LBUFF 

LENGTH 

MEMLO 

PARMS 

COM 

DOSINIT 
ENTRY 
t i a 1 iz at 


*=$1F00 

=$0342 

=$0344 


= $09 
= $05 
= $0B 
= $0C 
=$E456 
= $06 
= $031 A 
=$0580 
= $CB 
= $ 0 2 E 7 
= $CC 
= $CD 
= $0C 
PLA 


; For 


BASIC 
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0320 ; Make 
0330 INI! 
0340 
0350 


wedge "RESET-pi 

LDA DOSINIT 
STA REINIT+1 


Save DOS 


0360 

INIT 

0370 


LDA DOSINIT+1 ;inside the RE 

STA REINIT+2 ; JSR call 


0380 ; 

0390 INIT2 
nit 


04 10 
0420 
0430 
0440 


LDA #REINIT&255 ;Replace DOS i 

STA DOSINIT ;with Wedge 

LDA #REINIT/256 ;init 

STA DOSINIT+1 

JSR MSB ;Print message 

JSR ECHANSE ; hookup new E 


0450 

0460 

0470 

04B0 P 
0490 
0500 ; 

0510 REINIT 
in with 

0520 

0530 XXXX 
0540 ; 

0550 ; Print 

0560 ; 

0570 MSB 
of 

0580 

0590 


0610 

0620 

0630 

0640 

0650 


0670 


int it 

0690 


eturn 


LDA #ENDWEDBE&255 ;Bump up 
STA MEMLO 

LDA #ENDWEDSE/256 ;1ow memory 

STA MEMLO+1 
RTS 

JSR XXXX ;X X X X is filled 

DOSINIT 
JSR INIT2 
RTS 


"welcome" message 


LDA #WMSB?<255 

STA ICBADR 
LDA #WMSB/256 
STA ICBADR+1 
LDA #0 

STA ICBLEN+1 
LDA #12 
STA ICBLEN 
LDA ttCPBINR 

STA ICCOM 
LDX #0 

JSR CIO 

T Y A 

BMI ERR 


;Store address 
;message 

;Set length 

;Ignore carriag 

;Fi1e 0, the ed 
; Ca 1 1 CIO to pr 

;If no error, r 
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0710 

0720 ERR 
0730 ; 

0740 WMSG 
0750 ; 

0760 ; Follow 
0770 ; 

0780 ECHANGE 
0790 ELOOP 


0820 
0830 
0840 
0850 
0860 
0870 ; 

0880 ; Store 

0890 ; 

0900 EFOUND 

0910 

0920 

0930 

0940 

0950 

0960 ; Trans-f 

0970 

0980 XFER 
0990 
1000 
1010 
1020 

1030 ; Patch 

1040 
1050 
1060 
1070 
1080 
1090 

address 

1 100 

s is +1 

1110 

1120 

1130 

rr y ) 

1 140 


RTS 

JMP ERROR 


.BYTE "Atari Wedge 2.0",155 
ng replaces the old E: 


LDY #0 ; Search -for E: 

LDA HAT ABS,Y ;in handler tab 


CMP #’E 
BEQ EFOUND 
INY 
INY 

CPY #34 
BNE ELOOP 
RTS 


;Found end? 

;no, next entry 

;end of table? 


lew handler table address 


INY 

LDA #WEDGETABS<255 

STA H A T A B S,Y 

INY 

LDA #WEDGETAB/256 
STA HATABS.Y 

?r Editor table to Wedge table 
LDX #0 
LDA $ E 4 0 0, X 
STA WEDGET AB, X 
I NX 

CPX #16 
BNE XFER 

n MYINPUT routine 
LDA #MYINPUT—1&255 
STA WEDGET AB + 4 
LDA #MYINPUT—1/256 
STA WEDGET AB + 5 
CLC 

LDA $E4 04 
ADC #1 

STA MYINPUT+1 
LDA $ E 4 0 5 


Get character 
Actual addres 
Egads! 

Self-modifyin 


ADC #0 


;(Accept any ca 


STA MYINPUT+2 
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1150 LDA #0 

1160 STA LENGTH ;Clear length i 

nitial1y 

1170 RTS 

1180 ; 

1190 ; Wedge handler address table 

1200 WED6ETAB *=*+16 

1210 YSAVE *=*+1 ;Used to save Y 

1220 XSAVE * = * + 1 ; Ditto -for X 

1230 JUMPADR *=*+2 ; used for indir 

ect JMP 
1240 MYINPUT 

1250 ; The $F63E address is actually placed 

here by above code 

1260 ; to permit this routine to run on the 

Revision B OS 

1270 ; (where it wouldn’t necessarily be $ F 6 

3E) 

1280 J SR $F63E ;Bet a characte 

r from E: 

1290 PHP 

1300 CMP #155 ;End of line? ( 

CR) 

1310 BED ENDLINE ;Yes, complete 

1320 INC LENGTH 

1330 PLP 

1340 RTS ;No, let CIO ha 

ve the character 
1350 ENDLINE 

1360 STY YSAVE ;Save Y for CIO 

1370 ST X XSAVE 

1380 LDA LENGTH 

1390 BEQ RETURN.LINE 

1400 LOOKUP 

1410 LDA #C0MTBL8t255 ; Set up indire 

ct pointer for 
1420 STA COM 

1430 LDA #C0MTBL/256 ;command table 

1440 STA COM+1 

1450 NEXTCOM LDY #0 

1460 COMFLOOP 

1470 LDA (COM),Y ;Compare comman 

d against line buffer 

1480 CMP LBUFF,Y ;Okay so far? 

1490 BNE NOTSAME ;no match 

1500 INY 

1510 LDA (COM),Y ;is next charac 

ter null? 
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1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 
1 840 

1 850 
1860 
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ound 


BEQ COMFOUND ;yes, command -f 
CRY LENGTH ; e x c e e d e d limit 


BNE 

ue comparisoi 
JMP 


NOTSAME 


FINDEND 

et? 

cter 


CMP 

BED 

LDY' 

LD A 
BEQ 

INC 


COMPLQOP ; i -f not, contin 

RETURN.LINE ;give line to 

#255 ;End of table? 

RETURN.LINE 

#0 ;No, skip over 

(COM),Y 

ENDCOM ;Hit the zero y 

COM ;No, next chara 


BCC NO INC1 
INC COM+1 

NOINC1 JMP FINDEND 
null byte found 
ENDCOM CLC 


v e r null 


N0INC2 

COMFOUND 


byte 
LDA COM 
ADC #3 
STA COM 
BCC N0INC2 
INC COM+1 
JMP NEXT COM 


;continue until 
;Add 3 to skip o 
; and JMP address 

;Check for carry 


I NY 

STY PARMS 


par ameter s 

LDA (COM),Y 
ith command address 
STA JUMPADR 
I NY 

LDA (COM),Y 
STA JUMPADR+1 
JMP (JUMPADR) 
EXIT LDY #0 


LDA #’. 
haracter to 

STA LBUFF,Y 


ignore line 
RETURN.LINE 

LD A #0 


; Y is index into 
;Load JUMPADR w 


;Commands retur 
;Change first c 


;".", or REM 
Allows BASIC 
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1870 

1880 

1890 


1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 


NOAUTO 

CIO 


status 

COMTBL 


STA LENGTH 

LDA #155 

LDY YSAVE 
LDX X SAVE 
PLP 

RTS 


;Return EOL to 

;Restore Y 
; and X 

;and processor 
;That’s it 


Wedge commands and command 
Format is: 

.BYTE "COMMAND”,0 
.WORD COMMAND.ADDRESS 


End o-f table 
.BYTE 255 

. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 


" D I R " , 0 
DIR 

"SCRATCH",0 
SCRATCH 
"LOCK",0 
LOCK 

"UNLOCK”,0 

UNLOCK 

"RENAME",0 

RENAME 

"KILL" ,0 

KILL 

255 


table 


DIRBUF *=*+20 
DIRNAME .BYTE "D:*.*" 


c ommand s: 


DIR 

LDX #$50 ; I0CB#5 

LDA #CCLOSE 
STA ICCOM,X 
J SR CIO ;CL0SE#5 
; 0PEN#5,6,0,"D:*.*" 

LDX #$50 ;channel#5 

LDA #COPN ;open command 

STA ICCOM,X 

LDA # OP DIR ;special "direc 

tory" command 

STA ICAUX1,X 

LDA #DIRNAME&255 filename (wi 


1d c ar d) 
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2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 


STA 
LDA 
STA 
J SR 
TY A 
BPL 
J MP 

; Print a lir. 
IM0ERR1 

NEXT LDX 

LDA 
STA 
LDA 

he buffer 

STA 

STA 

LDA 

STA 

STA 

LDA 

th is 20 

STA 
STA 
J SR 
TYA 

of file 

BM I 


ICBADR,X 
#DIRNAME/256 
ICBADR+1,X 

CIO ;set it up! 

N0ERR1 

ERROR 

e to the Editor 


#*50 ;#5 

#CGTXTR ;Get a line 

I CCOM , X 

#DIRBUF&255 ; Put it into t 


ICBADR,X 

ICBADR 

#DIRBUF/256 

ICBADR+1,X 

ICBADR+1 

#20 ;Maximum leng 

ICBLEN,X ;(actually 17) 

ICBLEN 

CIO 

;Check for end 
ENDIR ;On error, fin 


ished directory 

N0ERR2 LDA #CPTXTR ;Put text reco 


rd (print a 1ine) 

STA ICCOM 
LDX #0 

open to the Editor 
J SR CIO 
JMP NEXT 


;Channel 0 is 


;Read next 1in 


2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 
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ENDIR LDX #*50 

LDA #CCLOSE 
STA ICCOM,X 
JSR CIO 
JMP EXIT 

;End of directory routi 


CL0SE#5 


Following routine is used by lock 
unlock, scratch, and rename 
Filename buffer is in LBUFF 
e.g. LOCK D:TEMP 
this A portion 
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2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 


2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 


3020 

3030 

3040 

3050 

3060 

3070 


3100 
3110 
3120 
3130 
3 140 


; to tell CIO the fi1en 
CALLCIO 

LDX #$50 
n,#5,etc.) 

STA I C C 0 M , X 
LDA #0 

STA ICBLEN+1,X 
LDY LENGTH 
STA LBUFFjY 
SEC 
TYA 

SBC FARMS 
and name) 

STA ICBLEN,X 
CLC 

LDA #LBUFF&255 
o-f parameters, 

ADC FARMS 

UFF 


STA ICBADR,X 
nd 


N0ERR3 


LDA #LBUFF/256 
ADC #0 

STA ICBADR+1,X 
J SR CIO ; Do thi 
TYA 

BPL NOERR3 
JMP ERROR 
JMP EXIT 


Use file 5 (XIO 

Store command 
Clear MSB 
of 1ength 


Get 1ength 
of filename 
(skip over comm 


FARMS is start 
the space in LB 
after the comma 

Catch any carry 


SCRATCH LDA 

JMP 

LOCK LDA 

JMP 

UNLOCK LDA 

JMP 

RENAME LDA 

JMP 


#33 

CALLCIO 

#35 

CALLCIO 

#36 

CALLCIO 

#32 

CALLCIO 


;Remove Wedge 


KILL 


SET 


LDA REINIT+1 Restore old DOS 

STA DOSINIT ;vector 

LDA REINIT+2 

STA DOSINIT+1 

JMP $ E 4 7 4 ; "Press" SYSTEM RE 
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3170 ; (Alth 
) 

3180 ; See -f 

3190 : 

3200 ERROR 

3210 

3220 

3230 

3240 

3250 


i ugh more commands can be added, 
iture issues o-f COMPUTE! 


PHA ;Save error code 

LDX #$50 ; c 1 ose -file 5 

LDA #CCLOSE 
STA ICCOM,X 
J SR CIO 

PLA jretrieve error cod 


3260 

3270 

3280 


or code 


LDX #$FF 
TXS 

STA $B9 
JMP $B940 


3300 ; 

3310 ; 

3320 ENDWEDGE 
3330 ; Autorun 
3340 ; 

3350 *=$02E0 

3360 .WORD INIT 

3370 ; 

3380 .END 


jreset stack 
; tel 1 BASIC the err 
; ca11 the ERROR rou 
in the BASIC cartr 
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Renu mber Plus 

Manny Juan and Paul N. Havey 


A renumbering utility is an important tool for the BASIC programmer. 
You will find "Renumber Plus" to be an invaluable aid. 

When you type a BASIC statement and press RETURN, BASIC 
converts your code into tokens. For example, all keywords and 
variables become one-byte tokens. A string becomes a sequence 
of tokens. The first byte of the sequence—always the decimal 
number 15—tells BASIC that a string follows. The second byte 
tells BASIC the length of the string in bytes. The string appears as 
ASCII text following these first two bytes. When writing a 
program that deals with BASIC's internal form, you need to 
consider the format of strings to avoid problems or bugs. 

The original "Renumber" by Manny Juan renumbers BASIC 
statements in RAM, resolves most line number references, and 
stays in memory for reuse. 

"Renumber Plus" is a BASIC utility that enhances Manny 
Juan's Renumber. Renumber Plus does the following four opera¬ 
tions the original Renumber does not: 

• Resolves literal line number references after the LIST 
command. 

• By-passes strings embedded in a statement. 

• Resolves literal references following symbolic ones in a list of 
references. 

• Allows you to choose where renumbering begins. These 
features add much to an already effective and useful tool. 

Using Renumber Plus 

1. Type Renumber Plus into your Atari. 

2. Save the program with the direct command LIST "C" or LIST 
"D:REN". Using the LIST command allows you to merge 
Renumber Plus with your program. 

3. LOAD your program into the Atari. The highest line number 
must be less than 32100. The last statement must be END, 
STOP or RETURN. LOADing your program erases 
Renumber Plus from memory. 
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4. Enter Renumber Plus into the Atari with the direct 
command ENTER"C:" or ENTER "D:REN". 

5. Type GOTO 32100. 

6. When the prompt BEGIN,FROM, BY appears, enter the 
following: 

a. Beginning line number, 

b. New starting line number, and 

c. Increment value. 

7. Enjoy the musical interlude while your Atari works. Do not 
press BREAK or RESET while the program renumbers. The 
new line number followed by SR is displayed for each 
symbolic reference in your program. The new line number 
followed by NR is displayed for each reference to an old line 
number that does not exist. 

8. When Renumber Plus finishes renumbering, the number of 
renumbered lines and the following message are displayed: 
LIST "C:",bbbb,eeee 

bbbb = the first new line number 
eeee = the last new line number 

9. In order to save a copy of your renumbered program without 
the Renumber Plus program appended to it, use the LIST 
command (LIST "C:", bbbb,eeee for cassette and LIST "D: 
filename", bbbb,eeee for disk). 

Renumber Plus 

32100 REM RENUMBER PLUS 
32110 T8=256:1=1:Z=32100 

32120 WM=0:X=PEEK(138)+ PEEK(139)*T8:Y=PEEK(1 
34)+PEEK(135)*T8+8*(PEEK(X+5)-128)+2 
32130 ? "BEGIN,FROM,BY":INPUT ST,FR,BY:? CHR 
*(125) 

32140 B=PEEK(136)+PEEK(137)*TB:X=B:M=FR 
32142 LN=PEEK(X)+PEEK(X+I)*T8 
32144 IF ST >FR AND LN-ST THEN ST = LN 
32150 LN=PEEK(X)+PEEK(X+I)*T8:SOUND 0,LN,10, 
8 

32160 IF LN=Z THEN 32220 
32170 PL=PEEK(X+2):C=X+3 
32180 LL=PEEK(C):C=C+I 
32190 GOSUB 32280 

32200 IF LL< PL THEN C = X+LL:GOTO 32180 
32210 X=X+PL:M=M+BY*(LN>=ST):GOTO 32150 
32220 M=FR:X=B:SOUND 1,0,0,0 

32230 LN=PEEK(X)+PEEK(X+I)tTB:SOUND 0.-LN+32 
768,10,8 
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32240 

32245 

32250 

32260 

32270 

32280 

32290 

32300 

32310 

32320 

32330 

32335 

32340 

32345 

32350 

32355 

32360 

32362 

32364 

32366 


32370 

32380 

32390 

32400 

32410 

32415 

32420 

32430 

32440 

32450 


32460 


IF LN=Z THEN 32550 
IF LN< ST THEN 32270 
MH =I NT < M/T8) :ML=M-MH*T8 
POKE X,ML:POKE X+I,MH 

M=M+BY*(LN>=ST):X=X+PEEK< X+2) :GOTO 322 
30 

TK=PEEK(C) 

IF TK=10 OR TK=11 OR TK=12 OR TK=13 OR 
TK=35 THEN C=C+I:GOSUB 32450;RETURN 
IF TK< >30 THEN 32345 
C=C+I:D=PEEK(C) 

IF D=23 OR D=24 THEN 32350 

IF D=14 THEN C=C+6 

IF D=15 THEN C=C+PEEK(C+I)+I 

GOTO 32310 

IF TK<>4 THEN 32380 

C = C+ I:GOSUB 32450 

D=PEEK(C) 

IF D=18 THEN 32350 

IF D=14 THEN C=C+6 

IF D=15 THEN C=C+PEEK(C+I)+I 

IF D< >20 AND D<>22 THEN C = C+I:GO TO 32 

355 

RETURN 

IF TK< >7 THEN RETURN 
C = C+I:D=PEEK(C) 

IF D = 2 7 THEN 32430 
IF D =14 THEN C=C+6 
IF D=15 THEN C=C+PEEK(C+I)+I 
GOTO 32390 

C = C+1: IF C< < X +LL) THEN GOSUB 32450 
RETURN 

D = PEEK < C) : IF D = 20 OR D = 22 THEN C = C+I:R 
ETURN 

IF D< >14 THEN ? M; " SR,";:C=C+I:RETURN 


32465 DD=PEEK(C+7):IF DD<>18 AND DD<>20 AND 
DD<>22 THEN ? M ; " SR,";:C=C+I:RETURN 
32470 C=C+I:FOR J=0 TO 3:POKE Y+J,PEEK1C+J): 
NEXT J 

32480 IF WMCLN THEN WX=B:RN=FR:GOTO 32500 
32490 WX=X:RN=M 

32500 WN=PEEK(MX)+PEEK(WX+I)*T8:SOUND 1,WN,1 
0,8 

32510 IF WN< Z AND WN'WM THEN RN = RN + BY* (WN> = S 
T):WX=WX+PEEK(WX+2):GOTO 32500 
32520 IF WN<>WM THEN ? M;" NF,";:GO TO 32540 
32525 IF WN< ST THEN 32540 
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32530 WM=RN:FOR J=0 TO 3:P0KE C+J,PEEK<Y+J): 
NEXT J 

32540 C=C+6:RETURN 

32550 ? :? (M-FR)/BY;" LINES” 

32560 ? "LIST”;CHR*(34);"C:";CHR*(34);",";FR 
5 ”, ”;M —BY 
32570 END 
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Purge 

A1 Casper 


For the Atari 800 with 810 disk drive, this is a quicker and simpler method 
of housecleaning diskettes. 

One of my favorite chores used to be clearing files off my 
diskettes, making room for new programs and files. Of course I'm 
kidding; I dreaded purging diskettes. First you had to load DOS 
and wait. Filenames had to be carefully entered, and finally the 
DELETE D:SLOW ? Y or N had to be dealt with. You also had to 
add one more step if the file was locked, or do it over from the 
start if you made a mistake. Repeat the above steps for each file 
you want deleted, and the entire process can easily take 20 
minutes per diskette. "Purge" was written to make this job fast 
and easy, freeing your valuable time for other things. 

Free Directory 

When Purge is finished clearing your diskette, a directory is 
printed on the screen. The directory has two advantages over the 
DOS directory. First, you do not need to load DOS to use it. 

Second, the files are printed in two columns, allowing twice as 
many files to be displayed before they start scrolling off the top of 
the screen. 

The program is written in two short sections, which makes it 
easy to save the DIR (Section A) as a separate program. The 
REMarks at the end of section A will explain this in more detail. I 
keep a copy of DIR on each of my diskettes. It requires only three 
sectors of disk space, well worth the time it can save you. I also 
have a LISTed version of DIR on a file named EDIR. I simply 
ENTER "D:EDIR" with any program I happen to have in memory. 
The high line numbers will almost never cause a conflict. Just type 
GOTO 32100 for a directory listing. DIR will now be a part of the 
program. 

To use Purge, simply load the program, insert the diskette to 
be purged into disk drive one, and type RUN. One at a time the 
files on that diskette will be displayed on the screen. Pressing 
RETURN will display the next file. When an unwanted file is 
displayed, press CONTROL <P> to purge it. This process continues 
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until all the files have been displayed. Don't panic if you make an 
error along the way; just press BREAK and start over. The purging 
takes place after all the files have been displayed and only if you 
press V, as prompted on the screen. You'll hear a lot of action from 
the disk drive as the purging is taking place. The length of this 
operation varies with the number and length of files being 
deleted. 

XIO Examples 

The following is a line by line description of my program. This 
will be of most interest to programmers with limited experience 
working with disk operations. The XIO feature is the key to 
Purge. Writing this program in BASIC would have been very diffi¬ 
cult without XIO. Note that the program listing does not have all 
the lines in correct order. 

Line 32100 This special OPEN will allow inputs from the disk 
directory. The " *.*" in the filename is the same as a wildcard in DOS. 
Line 32102 The TRAP is very useful. In this case it will detect the 
EOF (end of file), treat it as an error, and end the inputs. 

Line 32104-32106 These are the INPUT(s) from the directory. The 
directory is printed in two columns. 

Line 32110-32115 The file is CLOSEd, and the program goes into 
an endless loop to prevent possible information from scrolling off 
the screen. 

Line 32000 Another TRAP for EOE The keyboard (K:) is OPENed 
for input. 

Line 32004 The OPEN is again to the directory. 

Line 32006 One at a time each directory entry is INPUT and 
tested for FREE SECTORS, which would be the last entry. The 
entry is then printed on the screen. 

Line 32008 The program waits for an input from the keyboard. A 
chime sounds and slows things a bit. 

Line 32010 If a purge was requested, the filename is created from 
the directory information. 

Line 32012 The filename is saved in a larger string for later 
purging. 

Line 32016-32017 Blank spaces have to be removed from the 
filename before they can be unlocked and deleted. 

Line 32018 The XIO's perform unlock and delete just as if you 
were using DOS. 

Line 32020 Files are CLOSEd, and the DIR routine will follow. 
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Program 1. Section A: DIR 

32050 REM SECTION (A) DIR 

32055 REM 

32060 REM WHEN FINISHED TYPING THIS SECTION 
SAVE IT WITH THE FILE NAME 'D:DIR’. 

32065 REM ALSO LIST IT TO THE DISKETTE WITH 
THE FILE NAME 13 SPACES!’D:ED IR’ . 

32067 REM ’EDIR’ CAN THEN BE ENTERED AT ANY 
TIME TO ATTACH A ’DIR’ 

32068 REM TO YOUR PROGRAM TO BE CALLED WITH 
A ’GOTO 32100’. 

32070 REM THEN CONTINUE ADDING SECTION (B) 

TO SECTION (A) 

32100 OPEN #5,6,0, "D: * . *" 

32102 CLR :GRAPH ICS 0:POKE 82,1:DIM ENT*(17) 
12 1 " 

32104 INPUT #5,ENT*:? ENT*;"{4 SPACES!"; 

32106 INPUT #5,ENT*:? ENT *:GOTO 32104 

32110 CLOSE #5:? :? "14 aaiHS> SIE 

18 1 ^ 5 fsiZ1 *£ 

13 i-iJilii*) } » : : POKE 82,2 

32115 GOTO 32115 


Program 2. Section B: Purge 

31900 REM SECTION (B) PURGE 

31910 REM 

32000 TRAP 32013:OPEN #4,4,0,"K:":DIM E*(17) 

,S *(500) ,PG*<14) :X = 1:Y=14 

32002 GRAPHICS 0:? "tDOWNJTO PURGE”:? " 

•C DOWN! AFTER EACH FILE DISPLAYED PRESS" 

:? "CONTROL-P TO DELETE 0RI3 SPACESIPR 
ESS RETURN” 

32004 ? "TO CONTINUE":OPEN #5,6,0,”D:*.#" 

32006 INPUT #5,E*:POSITION 2,10:IF E*<5,16)< 

>"F R E E SECTORS" THEN ? E*:? :? ” ■SIEHE 

[a';: GOTO 32008 

32007 GOTO 32013 

32008 GET #4,K:IF K<>16 THEN POSITION 2,12:? 

" CHOICE ”:FOR Q=15 TO 0 STEP -0.2:S 
OUND 0,20,10,Q:NEXT B:GOTO 32006 

32010 PG* < 1,2) = "D: ”:PG*(3, 10)=E* «3, 10) :PG*(1 
1, 11 ) = ". ":PG*(12, 14)=E*(11, 13) 

32012 S*(X,Y)=PG*:X=X+14:Y=Y+14:FOR Q=15 TO 
0 STEP —0.2:SOUND 0,40,10,Q:NEXT Q:GOT 
O 32006 
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R G=1 TO 120:POKE 764,255:NEXT Q:GET # 
4,K:IF K = 80 THEN 32015 

32014 GOTO 32020 

32015 X=1:Y=14:S=0 

32016 TRAP 32020:PG$=S$(X,Y):FOR Q=1 TO 13:S 
=S+1:IF PGt(S,S)=" " THEN PG*<S,14)=FG 
* (S+l,14):S=S—1 

32017 NEXT Q 

32018 XIO 36,#3,0,0,PG$:XIO 33,#3,0,0,PG*:X= 
X+14:Y=Y+14:S=0:GOTO 32016 

32020 CLOSE #4:CLOSE #5 
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Stars hot 

MattGiwer 


As this game will demonstrate, Atari BASIC can be fast enough if you 
know how to speed it up. Requires 24K and game paddles. 

Atari graphics approach those available in dedicated graphics- 
oriented computers. Atari BASIC allows very fast manipulation of 
strings, Direct Memory Access for the Player/Missile Graphics, 
and the direct call of machine language from BASIC. This game 
combines all of these features and a few others. 

Let's start the discussion of this program with the subroutine 
at line 30000. The first thing to do is to enable the Player/Missile 
Graphics. 

Appendix A of the Atari Hardware Manual gives a detailed 
example of how to do this. This method works only when there is 
nothing on the screen; as soon as you write to the screen, the 
method fails. The usual approach is to reserve enough pages for 
the screen RAM, the Player/Missile graphics pages, etc. All in all, 
to use Player/Missile Graphics with GRAPHICS 7, you wind up 
reserving 32 pages and, in the process, taking care of the 
computer rather than letting the operating system (OS) take care 
of you. Here is how to do it right. 

RAMTOP 

Contained in register 106 is the number of pages of RAM available 
to you for your use after everything needed for the system has 
been accounted for. What we want to do is to change this number 
so that RAM is protected for the Player/Missile Graphics pages. 
This is accomplished by POKE 106, PEEK(106)-16. This puts a 
number into that register that is 16 pages less than the number the 
operating system determines upon powering up the computer or 
upon system reset. But just POKEing a new number does nothing 
until the computer makes use of it. 

The second GRAPHICS 7 call causes the operating system to 
make use of this new RAMTOP to relocate the screen RAM and 
the display list below RAMTOP If you do not make this graphics 
call, you will find that the screen memory is above the new, lower 
protected memory limit, and the system will crash at the first 
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attempt to scroll the screen. In other words, your system registers 
that point to the first screen byte, and the display list will be above 
RAMTOP The operating system cannot handle this. 

You proceed as normal but much more cleanly now that you 
have lowered the effective top of your RAM and made the oper¬ 
ating system reorganize itself around that new maximum RAM 
with the second graphics call. Lines 30204 and 30206 are the 
enabling POKEs for Player/Missile Graphics as described in many 
articles and in De Re Atari. Line 30208 is the POKE to tell the oper¬ 
ating system where to find the start of the Player/Missile data. The 
start of this data is now simply RAMTOP 

With Player/Missile Graphics set up this way, you can forget 
about what the rest of the system is doing and treat it just as 
though Player/Missile Graphics were not in use. The operating 
system will take care of you. 

Player Definition 

The next routine of interest is at line 30236. (This is the machine 
language routine published in COMPUTERS First Book of Atari 
Graphics, page 164.) It provides relocation of the four players at 
machine language speeds by means of two POKEs and, since the 
routine is executed during the vertical blanking time, the motion 
appears to be continuous. The rest of the 30000 lines define the 
players. Note that the RESTORE in line 30310 makes Player 3 the 
same as Player 2, although it is defined as a different color in line 
30230. 

Now let's jump to lines 100-120—we will get to the earlier 
lines later. These lines are the definitions that will be used later for 
named subroutines. The use of named subroutines is a desirable 
feature that greatly aids program development. 

Lines 1890-1930 are both the one-time calls and those such as 
DISPLAY that are needed to set up the game at the start. 

The subroutine at line 10000 draws the background in the 
way that makes this illusion of motion possible. Note that each set 
of lines is drawn with a different COLOR and that the COLOR 
numbers rotate 1, 2, 3,1, 2,3, and so forth. I will get back to this in 
a minute. 

Color Rotation Simulates Motion 

The START subroutine at line 5000 POKEs numbers into the color 
registers so that you can see the screen and draws the eight 
attackers. You will also note that COLOR J also rotates the 
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COLOR assigned to the attacker graphic although in a more 
complex manner than in BACKGROUND. 

The DISPLAY subroutine at line 6300 controls the scoring and 
number of lives information that will be shown in the bottom 
alphanumeric window. 

ASELECT at line 6500 picks the order in which the attackers 
will attack from among the predefined ATTACKl-4$ in lines 54 
and 60. 

Within the infinite loop at line 2100 you'll find the reason why 
I used different COLORS to draw the background. The four state¬ 
ments in line 2110 rotate the colors used in the background 
through the registers in a bucket brigade manner; the colors seem 
to be moving toward you. Given the drawn background, it 
appears that you are moving forward through the trench. This 
illusion of motion requires the use of three different colors as a 
minimum. If there were only two colors, they would appear to 
flicker back and forth rather than move. The instructions in this 
line will be used in almost every subroutine so that this illusion of 
motion is maintained. 

This technique is useful in many applications—you can 
simulate many kinds of motion. If you were to reverse the order of 
the instructions, you would have the illusion of going backwards. 
Line 2120 is simply a short delay. 

Another line that you will find throughout the program is 
first used at line 5017. A = 74 + PADDLE(0)/2.92 is the equation 
that limits the motion of Player 0 on the screen. The farthest left X 
location that Player 0 can move to is 74. The range of values for the 
PADDLE(O) is 0 to 228. Dividing this range of values by 2.92 
converts the largest value of 228 to the rightmost location of Player 
0 and makes the full left-to-right motion of the Player a full turn of 
the PADDLE. In order to simulate continuous motion, this equa¬ 
tion is also put into every subroutine where the program execu¬ 
tion takes a noticeable amount of time. 

The subroutine MOVE at line 5100 is a loitering loop that 
waits a random number of loops until the first attack begins. 

When the number 50 is reached, program execution jumps to 
SELECT at line 5200. 

The SELECT subroutine picks the sequence of the attackers 
from ATTACK1S through ATTACK4$. ATTACKS for the first wave 
was initially called in line 1930. This routine randomly picks one of 
the four attack sequences defined in lines 54 and 60. An attempt 
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to read the ninth element in this string is TRAPped to line 5211, 
which redraws the attackers and starts over. 

Note this use of the TRAP instruction. It is not meant simply 
to avoid a program crash, but rather to perform an integral 
program function. Rather than a RAM and time-consuming test 
or loop, one simple statement is used. 

Lines 5215-5240 erase the chosen attacker, position Player 1 
over the erased attacker, and give some warning sounds. Line 
5241 calls the subroutine JOIN at line 5800. This routine adds 
together the strings which are used to define the X and Y posi¬ 
tions of Player 1 as it moves from its initial position to its attack 
position. 

Special TRAPS 

The strings are the AX1$ and AY1$ through AX8$ and AY8$ that 
were defined back in the beginning of the program. These are the 
X and Y coordinates to be POKEd into PLX -I-1 and PLY +1. They 
are stored as groups of three numbers. These values are read in 
lines 5260-5270. Note that by using TRAP here I do not have to 
keep track of the number of elements in the string. And again 
instead of some test or loop, a simple statement is used. These 
strings are merely added together. No matter what the sequence 
of the attack, the last pattern is always the same, and the last set of 
numbers in the string is always the same. 

The ATTACK subroutine at line 5300 is where the shooting 
occurs. The first call is for the subroutine PATTERN at line 5600. 
This subroutine chooses among five possible X position patterns 
and five possible Y position patterns. These are the rest of the 
strings defined in the beginning of the program. This inde¬ 
pendent choice of X and Y patterns permits a total of 25 different 
attack patterns. 

In line 5315, the X and Y values for this attack motion are read 
out in groups of three. In this case, the TRAP is used to jump back 
to the PATTERN subroutine call to pick another pair of strings 
when the end of the STRING is reached. This gives continuously 
varying motion to the attacker. 

Lines 5324 and 5325 change the size of the attacker as it comes 
closer or goes farther away. F and G are flags that control the firing 
and motion of the missiles. It is worth examining how these flags 
function. 

F controls the attacker's missile firing. Other than its house¬ 
keeping function, the primary purpose of the IF F = 0 is to fix the 
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X and Y location at the moment of firing so that the motion is 
calculated only from this point. After F is set to 1, these statements 
are no longer executed. If they were, the missile would weave 
back and forth in X and Y in unison with the attacker. Behind the 
F = 1 flag are the calculations that determine whether the missile 
passes to the left or to the right. The G flag performs a similar 
program function. 

Lines 5350 and 5352 check for missile-to-player collisions and 
direct action to the appropriate subroutine. Line 5355 clears the 
collision registers. 

HITYOU, HUME, HITUS 

The HITYOU, HITME, and HITUS subroutines introduce Players 
2 and 3 as the explosions. In HITYOU and HITME, these two 
players are sequentially put in the same location as the hit player. 
This sequence is controlled by the TT variable. Note that the two 
explosion shapes are the same but of different colors. Also, when 
they are called, they are placed one Y position different. The 
purpose is to give some illusion of a dynamic explosion. 

Lines 5440 and 5540 move the hit player and explosions off 
the screen. The logical truth statements determine whether the hit 
player was to the left or right of center when hit and then move it 
off the screen to the left or right as appropriate. Lines 5545 and 
5547 cause the attacker and the explosions to grow larger as they 
goby. 

The significant difference in the two subroutines is that in 
HITYOU there is an additional collision test in line 5560. This 
requires you to get out of the way of the hit player as it rolls off the 
screen. If you don't, you are also destroyed, and both players roll 
off the screen. This is controlled by the HITUS subroutine. Being 
hit by the attacker's missile and by the damaged attacker causes 
you to lose one life. 

Good Practice 

This is a quick review of a fairly complex program. It exploits 
many of the Atari's features. The method of reserving the Player/ 
Missile Graphics pages by moving RAMTOP lets the machine 
take care of you and perhaps completes the official Atari version of 
how to turn on the function. 
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Starshot 

40 J =66:P X = 5 

50 DIM ATTACK* (8) ,AX5*<J) ,AY5*<J)»AX*<3*J> ,A 
Y* <3*J > ,APX1*(J) ,APY1 * < J) ,A P X *(J) ,APY* ( J > 

51 DIM AX4* ( J) ,AY4*(J) ,APX2*<J> ,APY2*<J) ,APX 
3*(J) ,APY3* (J) „AP X 4* ( J) ,APY4*(J) ,APX5* <J) 

, APY5* < J) 

52 DIM AX3* ( J) ,AY3*(J) f AX2* ( J) ,AY2*(J) ,AX6* ( 
J),AY6* < J ),AX7*(J),AY7*(J),AYS* <J)„AX8* <J 
) ,A X1 *(J) ,AY1*(J) 

53 DIM PLAYER*(10),ATTACK1*(8),ATTACK2*(8),A 
TTACK3*(8),ATTACK4*(8) 

54 ATTACK2*="37628415":ATTACK3*="28647135":A 
TTACK4*=”47618325" 

60 ATTACK1*="54637281":PLAYER*="1 2345" 

61 AX5*="13613613513413313213113012912812712 
6124122121121122123124125126126" 

62 AY5*="03803703503403403403503703904104304 
5047049052056059062065068071074" 

63 AX4*="11812012212412612813013213413413213 
0128126126126126126126126126126" 

64 AY4*="03603403203002803003203403704004305 
0057063070076082080078076075074" 

65 AX6*="156154152150148146144142140138136" 

66 AY6*="038036034033034036038040042040038” 

67 AX2*="078080082084086088090092094096098" 

68 AY2*=”038042044046048050052049046042038" 

69 AX 1*="058060062064066068070072074076078” 

70 AY1*="038035031035038042046048046042038” 

71 AX3*="098100102104106108110112114116118" 

72 AY3*="040044048046044042040038036037038" 

73 AX7*="176174172170168166164162160158156" 

74 AY7$="038036034032030033036039042040038" 

75 AX8*=”196194192190188186184182180178176" 

76 AY8*="040044048046044042040038036036038” 

83 APXI*="1261201141101101141201261321381421 
42138132126120114110110114120126" 

84 APY1*="0740770820900951001041051071091121 
14112109107105104100095090082077" 

85 APX2*="1261281301341381421421361301241211 
18110107104107110118120124126128" 

86 AF'Y2*=" 07407908408608809410 01061101141101 
08106100094087080080080078076075" 

87 APX3*="1261301341381421461421381341301261 
26130134138142144142138134130126" 

88 APY3*="0740740740740740820860900981061141 
20114106098090086082074074074074" 

89 APX4*=”1261341421341261181101101261341421 
34126113110110126134142132126126” 
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90 APY4$="0740780820860920860820780740780820 
86092096092088084080076072072074" 

91 ftPX5$="1261321381441501561621561501441381 
32126120116110104098104110116126" 

92 APY5*="0740700680700740800840900961021061 
02096092086082078076074070072074" 

100 BACKGROUND^10000:START=5000:MOVE=5100:SE 
LECT = 5200:ATTACK = 5300:HITME = 5400:HITYOU = 
5500 

110 PATTERN=5600:RESET=5700:JOIN=5800:HITUS= 
5900 

120 XSCR=6000:YSCR=6100:LOSS=6200:DIBPLAY=63 
00:RESET2=6400:ASELECT=6500 
1890 BOSUB 30000 
1900 GOSUB BACKGROUND 
1910 GOSUB START 
1920 GOSUB DISPLAY 
1930 GOSUB ASELECT 
2000 REM CONTROL LOOP 
2100 FOR I J K = 1 TO 2 STEP 0 

2110 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 
2120 Q=SIN(1) 

2130 GOSUB MOVE 
2900 NEXT IJK 
5000 REM START 

5005 POKE 703,10:POKE 709,0:POKE 710,56:POKE 
PLY,150:POKE 53761,132:REM 709,152 

5010 FOR 1=1 TO 8 

5011 FOR J=0 TO 2 

5016 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5017 A=74+PADDLE(0)/2.92:POKE PLX,A:POKE 537 
60,A—33 

5019 COLOR J*I:IF J*I=4 OR J*I=0 OR J*I=3 OR 

J*I=12 OR J*I=16 THEN COLOR 1 

5020 PLOT 20*1-10,J:DRAWTO 20*1-11,J 

5021 COLOR J * I: IF J*I=4 OR J* I=0 OR J*I=8 OR 

J * I = 12 OR J * I = 16 THEN COLOR 2 

5022 PLOT 20*1-3,J+3:DRAWTO 20*1-12,J+3 
5025 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 

709,PEEK(708):POKE 708,TEMP 

5033 COLOR J * I: IF J*I=4 OR J*I=0 OR J*I=3 OR 

J * I = 12 OR J * I = 16 THEN COLOR 3 

5034 PLOT 20*1-8,J+6:DRAWTO 20* I-9,J+6:PLOT 
20*1 — 12, J + 6 : DRAWTO 20*1-11, J + 6 

5036 NEXT J:NEXT I 
5090 RETURN 
5100 REM MOVE 
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5105 FOR I J K = 1 TO 2 STEP 0 

5110 TEMP=FEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK <70S) :POKE 70S,TEMP 

5111 A=SIN<1) 

5120 A=74+PADDLE(0)72,92:POKE PLX,A:POKE 537 
60,A—33 

5130 RR=RR+1:IF RR=50 THEN BOSUB SELECT:RR=I 
NT(40*RND(0)):POKE 53763,0:POKE 53761,1 
32 

5185 NEXT IJK 

5190 RETURN 

5200 REM SELECT 

5205 JJJ=JJJ+1 

5210 TRAP 5211:R=VAL(ATTACKS(JJJ,JJJ)):COLOR 

0:GOTO 5215:TRAP 40000 

5211 GOSUB START:JJJ=0:GOTO 5205 

5215 FOR J=0 TO 2 

5220 PLOT 20*R—10,J:DRAWTO 20*R-11,J 

5223 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5224 A=74+PADDLE(0)/2.92:POKE PLX,A:POKE 537 
60,A-33 

5225 PLOT 20*R-8,8-3:DRAWTO 20 * R-9,8-J : PLOT 
20*R—12,8-J:DRAWTO 20*R-11,8-J 

5230 NEXT J 

5235 PLOT 20*R-3,3:DRAWTO 20*R-12,3:PLOT 20* 
R — 8,5: DFlAWTO 20*R-12,5 

5236 POKE PLX+1,36+20*R:POKE PLY+1,38:PLOT 2 
0*R-8,4:DRAWTO 20*R-12,4 

5238 FOR Z = 2 5 0 TO 50 STEP -50:FOR X=15 TO 0 
STEP —5:SOUND 3,Z,8,X:NEXT X 

5239 TEMP=PEEK(710):POKE 710,PEEK(709)sPOKE 
709,PEEK(708):POKE 708,TEMP 

5240 NEXT Z 

5241 GOSUB JOIN 

5249 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK (708) :POKE 708,TEMP:POKE 53763, 
134 

5250 A=86+PADDLE(0)72.92:POKE PLX,A:POKE 537 
60,A-33 

5255 FOR J = 1 TO 200 

5260 TRAP 5280:X = VAL(AX$(J*3-2,J*3)):Y = VAL(A 
Y$ ( J*3 —2, J*3) ) : POKE PLX + l,X:POK.E PLY+1, 
Y:TRAP 40000:POKE 53762,Y-20 

5265 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5266 A=74+PADDLE(0)/2.92:POKE PLX,A:POKE 537 
60,A-33 

5270 NEXT J 
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5280 GOSUB ATTACK:GOSUB RESET 

5290 RETURN 

5300 REM ATTACK 

5305 GOSUB PATTERN 

5310 FOR J = 1 TO 200 

5315 TRAP 5305:X = VAL(APX$(J*3—2,J*3)):Y=VAL( 
APY*(J*3-2,J*3)):TRAP 40000 

5321 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5322 A=74+PADDLE(0)/2.92:POKE PLX,A:POKE 537 
60,A—33 

5324 IF Y >94 THEN POKE 53257,1:POKE 53258,1 

5325 IF Y< 9 4 THEN POKE 53257,0:POKE 53258,0 
5330 POKE PLX+l,X:POKE PLY+l,Y:POKE 53762,Y- 

20 

5333 IF F=0 THEN M1P=MYPMBASE+777+Y:POKE 532 
53,X:POKE M1P,12:M1P0=M1P:T=MYPMBASE+90 
7 + Y: X T= X 

5335 IF F=0 THEN F=l:POKE 53765,207:POKE 537 
64 ,100 

5337 IF F =1 THEN M1P = M1 P + 7: XT=(-1.5+XT) * (XT< 
128) + (1.5 + XT) * (XT>128) :POKE 53253, XT:PO 
KE MlP,12:POKE M1PO,0 

5338 IF F=1 THEN M1PO=M1P:POKE 53765,160:IF 
M1P >T — 5 0 THEN F = 0:POKE M1PO,0 

5339 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5340 IF G=0 THEN IF PTRIG(0)=0 THEN M0P=MYPM 
BASE+768+150:PT=80+PADDLE(0)/2.29:POKE 
M0P,3:G=1:POKE 53252,PT 

5342 IF G=1 THEN M0PO=M0P:T0=M0P—70:G=2:POKE 
53765,15:POKE 53764,50 

5347 IF G=2 THEN M0P=M0P-7:PT=(3.5+PT)*(PT<1 
28) + (-3.5 + PT) * (PT>128) :POKE M0P,3:POKE 
M0PO,0 

5349 IF G=2 THEN POKE 53252,PT:M0PO=M0P:POKE 

53765,160:IF M0P<T0 THEN G=0:POKE M0PO 
, 0 

5350 IF PEEK(53256)=2 THEN GOSUB HITYOU 
5352 IF PEEK(53257)=1 THEN GOSUB HITME:POKE 

M0PO,0:POKE M1P O,0 
5355 POKE 53278,0 
5375 NEXT J 

5380 POKE PLX,PADDLE(0):POKE PLY,148 
5395 RETURN 
5400 REM HITME 

5405 POKE 53761,15:POKE M0PO,0:POKE M1PO,0:R 
R = 0 

5410 FOR J=1 TO 200 
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5412 IF TT = 0 THEN POKE 53258,3:POKE PLY+2,14 
4+RR:POKE PLX+2,A:POKE PLX,A:POKE PLY,1 
48 + RR:T T=1 

5413 IF TT=1 THEN POKE 53259,3:POKE PLY+3,14 
4 + RR: POKE PLX+3,A:POKE F’LX,A:POKE PLY,1 
48+RR:TT=0 

5415 TRAP 5410: X = VAL (APX$(J*3-2,J*3) ) :Y = VAL( 
A P Y $(J*3-2,J*3)>:TRAP 40000 
5421 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5424 IF Y >94 THEN POKE 53257,1:POKE 53258,1 

5425 IF Y< 9 4 THEN POKE 53257’ 0:POKE 53258,0 
5427 POKE PL X + 1, X:POKE PLY+l,Y:POKE 53762,Y + 

20 

5430 IF TT=0 THEN POKE 53258,3:POKE PLY+2,14 
4+RR:POKE PLX+2,A:POKE PLX+3,0:TT=1 

5431 IF TT=0 THEN POKE 53258,3:POKE PLY+2,14 
4+RR:POKE PLX+2,A:P0KE PLX,A:POKE PLY,1 
48 + RR:TT =1 

5432 IF TT=1 THEN POKE 53259,3:POKE PLY+3,14 
4 + RR: POKE PLX + 3,A:P0KE PLX,A:F'OKE PLY,1 
48 + RR:TT = 0 

5435 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 

5440 RR=(RR+7):A=(A+7)#(A>123)+(A—7)*(A<127) 

: IF A< 0 THEN J=201 

5441 POKE 53760,RR 

5442 IF A< 0 OR A > 255 THEN J=201 
5444 IF 144 + RR >255 THEN J=201 
5490 NEXT J:GOSUB YSCR 

5495 POKE PLY+2,229:POKE PLY+3,229:POKE 5376 
1,0 

5497 RETURN 
5500 REM HITYOU 

5505 POKE 53763,15:POKE M0PO,0:POKE M1PO,0:R 
R=0:POKE M 0 P,0:POKE M1P,0 
5510 FOR J=1 TO 200 

5531 IF TT=0 THEN POKE PLY+2,Y-10:POKE PLX+2 
,X:POKE PLY+1,Y:POKE PLX+l,X:POKE PLX+3 
,0:TT=1 

5532 IF TT =1 THEN POKE PLY+3,Y-9:POKE PLX + 3, 
X:POKE PLY+l,Y:POKE PLX+l,X:POKE PLX+2, 
0:TT = 0 

5534 A=74+PADDLE(0)/2.92:POKE PLX,A:POKE 537 
62,Y:POKE 53760,41+PADDLE(0)72.92 
5540 Y = Y + 7: X=(X+3.5) % (X>128) + (X —3.5) # (X <128) 
5545 IF Y >94 THEN POKE 53257, 1:POKE 53258,1: 
POKE 53259,1 

5547 IF Y >13 0 THEN POKE 53257,3:P0KE 53258,3 
:POKE 53259,3 
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5550 

5560 
5582 
5584 
5590 
5595 
5597 
5600 
5610 
562 1 

5622 

5623 

5624 

5625 

5626 

5630 

5641 

5642 

5643 

5644 

5645 
5690 
5700 
5710 
5790 
5800 
58 10 


5812 


5815 

5817 

5820 

5822 


TEMP = PEEK (710) -.POKE 7 1 0 , PEEK ( 709 ) : POKE 

709,PEEK(708):POKE 708,TEMP 

IF PEEK(53260)<>0 THEN GOSUB HITUS 

IF Y > 2 5 5 THEN J = 201 

IF X >255 OR X<0 THEN J=201 

NEXT J:GOSUB XSCR 

POKE PL2 + 2,0: POKE F'L X+ 3,0 : P OK E 53763,0 
RETURN 

REM SELECT PATTERN 
R=I NT(5*RND(0) )+1 
IF R=1 THEN APX*=APX1* 

IF R=2 THEN APX*=APX2* 

IF R=3 THEN APX$=APX3$ 

IF R = 4 THEN APX$ = APX4$ 

IF R=5 THEN APX$=APX5$ 

TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 703,TEMP 
R =INT<5*RND (0) )+1 
IF R=1 THEN APY*=APY1* 

IF R = 2 THEN APY$ = APY2$ 

IF R=3 THEN APY*=APY3* 

IF R=4 THEN APY$=APY4t 
IF R=5 THEN APY$=ftPY5$ 

RETURN 
REM RESET 

F=0:G=0!POKE 53257,0:POKE PLX+1,0 

RETURN 

REM JOIN 

IF R=1 THEN AX*=AX1*:AX*(LEN(AX*>+1>=AX 
2*:AX*(LEN(AX*)+1>=AX3*:AX*(LEN(AX*>+1) 


= A X 4* 

IF R=1 THEN AYt=flYl$:AY$(LEN(AY$)+1)=AY 
2*:AY*(LEN(AY* > +1> =AY3$:AY$(LEN(AY$)+1) 
= A Y 4 * 


IF R=2 THEN AX* =AX2*:AX*(LEN(AX*)+1)=AX 
3$:AX$!LEN(AX$)+1)=AX4$ 

IF R=2 THEN AY*=AY2*:AY*(LEN<AY*)+1>=AY 
3*:AY*(LEN(AY*)+1)=AY4* 

IF R=3 THEN AX*=AX3*:AX*(LEN(AX*)+1)=AX 
4* 

IF R=3 THEN AY*=AY3*:AY*(LEN(AY*)+1)=AY 


5825 

5830 

5835 


IF 
IF 
I F 


R=4 THEN AX$=AX4$:AY$=AY4$ 

R=5 THEN AX*=AX5*:AY$=AY51 
R = 6 THEN AX$ = AX6$:AX$(LEN(AX6$) 


= A 


5837 IF R=6 THEN AY* =AY6*:AY*(LEN(AY6*)+1)=A 
Y5* 

5840 IF R = 7 THEN AX * = AX7*:AX*(LEN<AX*)+1)=AX 
6$:AXt(LEN(AX$)+l)=AX5$ 
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5842 IF R=7 THEN AY*=AY7*:AY*(LEN(AY*)+1)= A Y 
6$:AY*(LEN(AY*)+1)= AY5* 

5845 IF R=8 THEN AX* =AX8$:AX$(LEN(AX*)+1)=AX 
7*:AX*(LEN(AX*)+1)=AX6*:AX*(LEN(AX$)+1) 
= AX5* 

5847 IF R = 8 THEN AY*=AY8*:AY*(LEN ( AY* > +1)=AY 
7$:AY$(LEN(AY$)+1)=AY6*:AYt(LEN( A Y* )+1) 
= A Y5* 

5890 RETURN 
5900 REM HITUS 

5905 POKE 53763,15:POKE M0PO,0:POKE M1PO,0:R 
R = 0:POKE M0P,0:POKE M1P,0 
5910 FOR J=1 TO 200 

5931 POKE PLY+2,Y-10:POKE PLX+2,X:P0KE PLY+1 
,Y:POKE PLX+1,X 

5932 POKE PLY+3,Y-10:POKE PLX+3,A:P0KE PLY,Y 
:POKE PLX,A 

5940 Y = Y+7:X=(X+3.5)*(X >128) + (X-3.5)*(X<128) 
:A=(A+3.5)*(A>112)+(A-3.5)*(A<112) 

5950 TEMP=PEEK(710):POKE 710,PEEK(709):POKE 
709,PEEK(708):POKE 708,TEMP 
5982 IF Y >255 THEN J = 201 
5984 IF X >255 OR X<0 THEN J=201 
5990 NEXT J:GDSUB YSCR 

5995 POKE PL2+2,0:POKE PLX+3,0:POKE 53763,0 

5997 RETURN 

6000 REM XSCR 

6010 SCORE=SCORE+10 

6080 GOSUB DISPLAY 

6090 RETURN 

6100 REM YSCR 

6120 PLAYER*(2*PX—1,2*PX-1)=” " 

6125 PX=PX-1 

6130 IF PX=0 THEN GOSUB LOSS 
6180 GOSUB DISPLAY 
6190 RETURN 
6200 REM LOSS 

6210 IF SCORE>HSCR THEM HSCR=SCORE 

6220 GOSUB DISPLAY 

6280 GOSUB RESET2 

6290 RETURN 

6300 REM DISPLAY 

6305 POKE 53258,0:POKE 53259,0 
6310 ? PLAYER* 

6320 ? "SCORE: ";SCORE 

6330 ? “HIGH SCORE: " ;HSCR 

6340 IF PX=0 THEN ? " PUSH TRIGGER FOR ANOTH 
ER GAME"; 

6350 IF PX=0 THEN IF PTRIG(0)=1 THEN 6350:GO 
SUB RESET2:GOSUB ASELECT 
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6360 ? PLAYER* 

6362 ? "SCORE: “;SCORE 

6364 ? "HIGH SCORE: " ;HSCR 

6390 RETURN 
6400 REM RESET 2 

6410 SCORE=0:PLAYER*="1 2345" 

6430 P X = 5 

6490 RETURN 

6500 REM ASELECT 

6510 ZZ=INT<4*RND(0))+1 

6520 IF ZZ=1 THEN ATTACK*=ATTACK1* 

6522 IF Z Z =2 THEN ATTACK*=ATTAGK2* 

6524 IF Z Z =3 THEN ATTACK* = ATTACK3* 

6526 IF Z Z =4 THEN ATTACK* = ATTACK4* 

6590 RETURN 

10000 REM BACKGROUND 

10005 FOR 1=0 TO 3:POKE 708+1,0:NEXT I 
10007 COLOR 3:PLOT 0,20:DRAWTO 70,20:DRAWTO 
70,40:DRAWTQ 90,40:DRAWTO 90,20:DRAWTO 
159,20 

10010 COLOR 1:FOR 1=1 TO 2 

10020 PLOT 0,20+1:DRAWTO 70-I,20+I:DRAWTO 70 
-I,40+1:DRAWTO 90+I,40+I:DRAWTO 90+1,2 
0+1:DRAWTO 159,20+I:NEXT I 
10040 COLOR 2:FOR 1=1 TO 2 

10050 PLOT 0,22+1:DRAWTO 68-I,22+I:DRAWTO 68 
-I,42+1:DRAWTO 92+I,42+1:DRAWTO 92+1,2 
2+1:DRAWTO 159,22+I:NEXT I 
10060 COLOR 3:FOR 1=1 TO 3 

10070 PLOT 0,24+1:DRAWTO 66-I,24+1:DRAWTO 66 
-I,44+1:DRAWTO 94+I,44+I:DRAWTO 94+1,2 
4+1:DRAWTO 159,24+I:NEXT I 
10080 COLOR 1:FOR 1=1 TO 3 

10090 PLOT 0,27+1:DRAWTO 63-I,27+I:DRAWTO 63 
-I,47+1:DRAWTO 97+I,47+I:DRAWTO 97+1,2 
7+1:DRAWTO 159,27+I:NEXT I 
10100 COLOR 2:F OR 1 = 1 TO 5 

10110 PLOT O,30+1:DRAWTO 60-I,30+I:DRAWTO 60 
-I,50+1:DRAWTO 100+I,50+I:DRAWTO 100+1 
,30+1:DRAWTO 159,30+I:NEXT I 
10120 COLOR 3:FOR 1=1 TO 5 

10130 PLOT 0,35+1:DRAWTO 55-I,35+I:DRAWTO 55 
-I,55+1:DRAWTO 105+I,55+I:DRAWTO 105+1 
,35+1:DRAWTO 159,35+I:NEXT I 
10140 COLOR 1:FOR 1=1 TO 7 

10150 PLOT 0,40+1:DRAWTO 50-I,40+I:DRAWTO 50 
-I,60+1:DRAWTO 110+I,60+I:DRAWTO 110+1 
,40+1:DRAWTO 159,40+I:NEXT I 
10160 COLOR 2:FOR 1=1 TO 7 
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10170 PLOT 0,47+1:DRAWTO 43-I,47+I:DRAWTO 43 
-I,67+1:DRAWTO 117+I,67+I:DRAWTO 117+1 
,47+1:DRAWTO 159,47+I:NEXT I 
10180 COLOR 3:FOR 1=1 TO 9 

10190 PLOT 0,54+I:DRAWTO 36-I,54+I:DRAWTO 36 
-I,74+1:DRAWTO 1 24+I,74+I:DRAWTO 124+1 
,54+1:DRAWTO 159,54+I:NEXT I 
10200 COLOR 1:FOR 1=1 TO 12 

10210 PLOT 0,63+1:DRAWTO 27-I,63+I:DRAWTO 27 
-I,83+1:DRAWTO 133+I,83+I:DRAWTO 133+1 
,63+1:DRAWTO 159,63+I:NEXT I 
10220 COLOR 2:FOR 1=1 TO 20 

10230 PLOT 0,75+1:DRAWTO 14,75+I:PL0T 159,75 

+1:DRAWTO 145,75+I:NEXT I 
10300 RETURN 

30000 REM *#***PM SETUP***** 

30010 GRAPHICS 7:POKE 106,PEEK(106)-16:GRAPH 
ICS 7:POKE 752,1:REM *****16 PAGE RESE 
RVE***** 

30020 ? :? :? "T9 SPACES3 PREPARE FOR COMBAT" 

30204 POKE 53277,3: REM *****GRACTL PLAYS<MISS 

***** 

30206 POKE 559,62:REM * * * * *DMACTL, 1LINE,PLAY 
,MIS,NORM FIELD***** 

30208 POKE 54279,PEEK(106):REM *****PMBASE I 
S NOW RAMTOP***** 

30210 POKE 53256,3:POKE 53257,0:POKE 53258,0 
:POKE 53259,0:REM *****PLAY SIZES#**** 
30212 POKE 623,33:REM * * * * *PR I OR ITY PL OVER 

PF#**** 

30214 MYPMBASE=256*PEEK(106):REM *****NEW PM 
BASE#*##* 

30230 POKE 704,134:POKE 705,24:POKE 706,46:P 
OKE 707,54:POKE 1788,(PEEK(106)+4):REM 
* * * * * ST ART OF PM DATA***** 

30232 POKE 710,52:POKE 709,58:POKE 711,29:P0 
KE 712,0 

30236 REM * * * * # VBLANK INTERUF'T ROUTINE***** 
30238 FOR 1=1536 TO 1706:READ A:POKE I,A:NEX 
T I 

30240 FOR 1=1774 TO 17B7:P0KE I,0:NEXT I 
30242 DATA 162,3,189,244,6,240,89,56,221,240 
,6,240,83,141,254,6,106,141 
30244 DATA 255,6,142,253,6,24,169,0,109,253, 
6,24,109,252,6,133,204,133 
30246 DATA 206,189,240,6,133,203,173,254,6,1 
33,205,189,24B,6,170,232,46,255 
30248 DATA 6,144,16,168,177,203,145,205,169, 
0,145,203,136,202,208,244,76,8? 
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30250 DATA 6,160,0,177,203,145,205,169,0,145 
,203,200,202,208,244,174,253,6 
30252 DATA 173,254,6,157,240,6,189,236,6,240 
,48,133,203,24,138,141,253,6 
30254 DATA 109,235,6,133,204,24,173,253,6,10 
9,252,6,133,206,189,240,6,133 
30256 DATA 205,189,248,6,170,160,0,177,203,1 
45,205,200,202,208,248,174,253,6 
30258 DATA 169,0,157,236,6,202,48,3,76,2,6,7 
6,98,228,0,0,104,169 
30260 DATA 7,162,6,160,0,32,92,228,96 
30262 S=USR(1696) 

30276 PLX=53248:PLY=17B0:PLL=1784 
30278 POKE PLL,9:POKE PLL+1,8:P0KE PLL+2,26: 
POKE PLL+3,26 

30282 FOR I=MYPMBASE+1024 TO MYPMBASE+1032:R 
EAD A:POKE I,A:NEXT I:REM *****DEFENDE 
R PLAYER 0***** 

30283 DATA 24,24,60,60,126,255,126,36,36 
30285 FOR 1=0 TO 7:READ A:POKE MYPMBASE+1280 

+I,A:NEXT I:REM *****ATTACKER PLAYER 1 
***** 

30287 DATA 204,204,204,252,252,48,48,48 

30299 REM * * * * *EXPLOSION PLAYER 2****» 

30300 FOR I=MYPMBASE+1280+256 TO MYPMBASE+25 
6+1305:READ A:POKE I,A:NEXT I 

30305 DATA 24,36,80,52,90,52,105,93,170,237, 
181,106,253,94,171,246,173,85,44,90,11 
6,44,52,44,24,8 

30309 REM *****EXPLOSION PLAYER 3***** 

30310 RESTORE 30305:FOR I=MYPMBASE+1280+512 
TO MYPMBASE+1305+512:READ A:POKE I,A:N 
EXT I 

30590 RETURN 
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Laser Gunner II 

■HHBHHHi Gary R. Lecompte 

Version for the Atari by Charles Brannon with revisions by 
Thomas A. Marshall. 


This revised version of "Laser Gunner" mixes machine language and 
BASIC to make a very exciting game. The enhancements include having 
two missiles on the screen simultaneously and smooth animation even as 
the missiles are fired- 

In your comer of the universe, a zone of high-pressure radioactive 
plasma is contained by a platinum-iridium wall. Your ship, 
immersed in the red zone, is charged with a vital duty: defend the 
wall. The vengeful enemies of your civilization send wave after 
wave of attack ships in an effort to breach the wall. These semi¬ 
smart robot ships will concentrate their firepower on your weakest 
spot and mercilessly try to fire their way into the wall. 

Your only defense is your powerful particle beam which you 
use to fend off the attacking drones. The enemy ships are wary of 
your power, so if you move too close to an attack point, you can 
spook the enemy ship into picking another target. Move to shoot 
at the new position, and it will just cruise back to another vulner¬ 
able spot. You must not let the enemy blast a hole in the wall 
since, like a balloon stuck with a pin, the radioactive plasma will 
explode, reducing your ship to an expanding shell of iridescent 
particles. 

As the laser gunner, you try to react quickly to your enemy's 
shots. Follow the ship as well as you can, but do not stray too far 
from a weak spot. When you destroy one ship, another will 
appear at a random position, and will home in on a vulnerable 
spot in the wall. 

A Novel Player/Missile Technique 

For a game written in BASIC, "Laser Gunner" is reasonably fast 
and smooth. The smoothness of motion comes from player/ 
missile graphics, but the speed comes from an unusual technique 
that lets you move player/missile graphics at machine language 
speed. 
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A special graphics technique is used here. Instead of storing 
the player/missile graphics at the top of memory, a large string is 
dimensioned to hold the player/missile data. When a string is 
dimensioned, a block of memory is reserved for it. The starting 
address of the string can be determined by using the ADR func¬ 
tion. The problem is that player/missile graphics must start on an 
even IK boundary (the address must be a multiple of 1024), or a 2K 
boundary (divisible by 2048) for single-resolution player/missile 
graphics. Strings are given the next available address when 
dimensioned, which would only be on an even kilobyte address 
by sheer coincidence. 

So when the ADdRess of the string is determined, we must 
find what offset to add to the address to reach the next boundary. 

It can be shown that in worst case conditions (i.e., the address is 
just one byte past a IK or 2K boundary), we must allow for an 
offset of at least 1023 bytes for double-resolution, or 2048 bytes for 
single-resolution P/M graphics. So, although double-resolution 
P/M graphics require only 1024 bytes, we must dimension the 
holding string at least 2048 bytes. Then, a simple calculation (lines 
150-160) will give us the starting address within the string of the 
P/M base address, PMBASE. This value is then used to "set up" 
P/M graphics as usual. 

The advantage of using a string is twofold: one, we know 
that BASIC is covetously protecting the string from the 
"RAMTOP Dragon" (see COMPUTERS Second Book of Atari 
Graphics) and other nasties. Second, we can use BASIC's fast 
string manipulation commands to move segments of strings 
around, scroll a string, erase a string, copy one string to another, 
and more. Since the memory being moved in the string is the P/M 
memory, these manipulations directly modify the players and 
missiles. And since these string operations internally proceed at 
machine language speed, we get fast P/M animation using BASIC. 
Although the code is not as straightforward as dedicated P/M 
commands such as PMMOVE or PMGRAPHICS, it sure beats 
cryptic USR statements. As a matter of fact, since BASIC permits 
such flexibility with strings, it may be the best solution to using 
P/M graphics from BASIC. 

Using Vertical Blank for Smoother Motion 

The original version of Laser Gunner required all other motion to 
stop when missiles were fired. By using a vertical blank interrupt 
routine, continuous and smooth motion can be achieved. 
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The vertical blank (VB) is the time during which the television's 
electron beam is turned off while it returns from the lower-right 
comer of the screen to the top-left. Depending on the graphics 
mode and other interrupts, there are approximately 7980 machine 
cycles available during a single VB. (A machine cycle is the smallest 
measurement of time on your computer's internal clock.) 

Brinsins VB into the Picture 

To utilize the VB, we first have to tell the operating system (OS) 
where to go. We do this by performing a Vertical Blank Interrupt 
(VBI) through the Set Vertical Blank Vector (SETVBV) routine. 
Before jumping to the SETVBV, we have to load the least signifi¬ 
cant byte (LSB) in the Y register and the most significant byte 
(MSB) in the X register of our VB machine language routine. 

Into the accumulator we can place either a 6 or a 7. Six is for 
deferred mode; the OS does its housekeeping operations before it 
executes our code. Seven is for immediate mode; the OS executes 
our code first during the VB. Since we will be checking the colli¬ 
sion registers, we will be loading a 6 into the accumulator. The 
BASIC program initializes the SETVBV through the USR state¬ 
ment on line 1460. To return control to the OS, we jump back 
through $E45F. 

The BASIC and the machine language (ML) programs interact 
through several PEEKs and POKEs. The ML program checks the 
STRIG(O), location $0284, for the press of a button, and moves 
both missiles horizontally. Since the player/missile graphics are 
defined in strings, it is easier to have BASIC draw and erase the 
missiles by PEEKing the flags that the ML program sets. 

In the enhanced version, both missiles appear on the screen 
at the same time. This requires the additional coding located at 
$06D7. The missiles are defined as: 

BIT I 7|6|5|4|3|2|1|0| 

M3 M2 Ml MO 

Since it is difficult for Atari BASIC to selectively turn bits off 
and on, we will use ML to change the bits. The AND instruction is 
used to set bits to zero (off). ANDing a bit with zero sets the bit to 
zero. The ORA instruction is used to set bits to one (on). By 
ORAing a bit with one, we set the bit to one. The flipping of the 
missile bits is done in the subroutines at lines 1300-1330. 
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Further Enhancements 

The programming technique of performing graphics movement 
during the vertical blank enhances Laser Gunner almost to the 
level of difficulty of professional arcade games. Further program 
execution speed can be achieved by removing the REMs and 
moving the part of the program that does most of the action to the 
beginning. This shortens the memory that BASIC has to search to 
find line number references. An additional enhancement would 
be to add a sound routine during the VB each time the trigger is 
pressed. 

Laser Gunner II 



4 REM 

5 REM 

6 REM 

7 REM 
10 GOSUB 
20 RESTORE 

100 DIM PM*(2048):GRAPHICS 2+16 

110 DIM ALIEN*(11),PLAYER*(11),NULL*(11), EXP 
LODE*(12*9),TARGET(20) 

120 FOR 1 = 1 TO 1 1 :NULL*(I)=CHR*(0) :NEXT I 
130 LEVEL=15:CNT=15: REM DECREASE LEVEL FOR A 
HARDER GAME 

140 A=ADR(PM*):REM RAW ADDRESS 

150 PMBASE=INT(A/1024) * 1024:REM NEAREST 1 K 
BOUNDARY 

160 IF PMBASE< A THEN PMBASE = PMBASE+1024:REM 
IF BELOW STRING, GO TO NEXT IK BOUNDARY 
170 S=PMBASE—A:REM START OF PMBASE IN STRING 
(OFFSET) 

180 POKE 559,46:REM SET DOUBLE-LINE RES. 

190 POKE 54279,PMBASE/256:REM TELL ANTIC WHE 
RE PMBASE IS 

200 POKE 53277,3:REM TURN ON PLAYER/MISSILE 
DIRECT MEMORY ACCESS(DMA) 

210 PM*=CHR*(0):PM*(2048)=CHR*(0):PM*(2)=PM* 
:REM CLEAR OUT ALL P/M MEMORY 
220 POSITION 4,0:? #6;"laser gunner” 

230 ? #6: FOR 1 = 1 TO 10:? #6; "B" : NEXT I:POSIT 
ION 0,0 
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240 REM STRING POS OF PLAYER 0-3, AND MISSIL 
ES IN STRING: 

250 P0=S+512:P1=P0+128:P2 = P1 + 128:P3=P2+128 : M 
S=S+384 

260 PM*(P2+32)=CHR*(255):PM*(P2+127)=CHR*(25 
5):PM*(P2+33,P2+127)= PM*(P2+32):REM CREA 
TE WALL 

270 PM*(P3,P3+127)=PM*(P2,P2+127):REM CREATE 
"ZONE” 

280 POKE 53250,92:REM POSITION PLAYER 2, THE 
WALL 

290 POKE 53251,60:REM POSITION PLAYER 3, THE 
ZONE 

300 POKE 53258,0:POKE 53259,3:REM REM MAXIMU 
M WIDTH 

310 POKE 706,14:POKE 707,66:REM SET COLOR OF 
PLAYERS 2 AND 3 

320 DATA 0,8,28,62,255,62,255,62,28,8,0 

330 FOR 1 = 1 TO 1 1:READ A:ALIEN*(I)=CHR*(A) :N 
EXT I:REM PLACE INTO STRING, HENCE INTO 
P/M MEMORY 

340 AY=32:REM ALIEN VERTICAL LOCATION 

350 PM*(Pl+AY,Pl+AY+11)=ALIEN*:REM PLACE INT 
O STRING INTO P/M MEMORY 

360 POKE 705,6*16+10:REM SET COLOR OF ALIEN 
TO PURPLE 

370 POKE 53249,180:REM SET HORIZNONTAL POSIT 
IN 

380 POKE 53257,1:REM SET ALIEN TO DOUBLE-WID 
TH 

390 REM SET UP EXPLODE*, USE FOR EXPLOSION O 
F ALIEN 

400 FOR 1=1 TO 108:READ A:EXPLODE*(I)=CHR*(A 
) :NE X T I:REM EXPLODE DATA 

410 DATA 8,28,62,255,54,255,62,28,8,8,28,62, 
235,54,235,62,28,8,8,28,54,227,34,227,54 
,28,8 

420 DATA 8,24,34,227,34,227,18,24,8,8,24,34, 
194,32,163,18,8,8 

430 DATA 0,0,0,0,24,24,0,0,0,0,0,0,32,8,24,0 
,4,0,0,0,0,36,0,16,0,36,0,0,128,10,128,0 
,16,0,16,65 

440 DATA 0,9,0,0,32,0,32,0,8,0,0,0,64,0,0,64 
,0,4,0,0,0,0,0,0,0,128,0 

450 RY=INT(78*RND(0)+32):MH=190+RYI2:REM ATT 
RACT MODE: 

455 POSITION 9,5:? #6; "PRESS":POSITI ON 9,6:? 
#6;"START" 
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460 FOR 1=32 TO 110:PM*(P1+I,P1+I+11)=ALIEN$ 
:IF I=RY THEN PM*(MS+RY+10,MS+RY+10)=CHR 
* ( 12 ) 

470 IF I>RY THEN POKE 53253,MH-I*2 
480 IF PEEK(53279)>6 THEN NEXT I 
490 PM*(MS+RY+10,MS+RY+10)=CHR*(0) 

500 FOR 1=110 TO 32 STEP -1:PM*(P1+I,P1+I+11 
)= ALIEN*:IF PEEK(53279)>6 THEN NEXT I 
510 IF PEEK(53279)>=7 THEN 450 

515 POSITION 9,5:? #6;"C5 SPACES>":POSITION 
9,6:? #6;"C5 SPACES}" 

520 IF PEEK(53279)=3 THEN FOR 1=0 TO 4:P0KE 
5324B+I,0:NEXT I:GRAPHICS 0:END 
530 DATA 0,0,224,48,120,63,120,48,224,0,0 
540 FOR 1=1 TO 11:READ A:PLAYER*(I>=CHR*(A): 
NEXT I 

550 PY=60:REM SET PLAYER’S VERITCAL LOCATION 
560 PM*(P0+PY,P0+PY+11)=PLAYER* 

570 PM*(PI,PI)=CHR*(0):PM*(P1+127,P1+127)=CH 
R*(0):PM*(P1+2,Pl+127)=PM*(PI> 

580 AY=INT(78*RND(0)+32):PM*(Pl+AY,Pl+AY+11) 
=ALIEN*:REM RESET ALIEN 
590 POKE 53256,1:REM PLAYER 0 DOUBLE-WIDTH 
600 POKE 53248,64:REM HORIZONTAL POSITION OF 
PLAYER 0 

610 POKE 704,26:REM COLOR OF PLAYER 0 
620 POKE 53260,1:REM MISSILE 0 DOUBLE-WIDTH 
630 ST = STICK (0) : IF ST015 THEN D I R = ST : F = 2 : SO 
UND 0,100,0,8 

635 IF PEEK(CMPFLG)=1 THEN PM*(TMS,TMS)=CHR* 
(0):POKE CMPFLG,0:REM THE MISSILES HIT E 
ACH OTHER 

636 IF PEEK(COLFLG)=1 THEN POKE COLFLG,0:GOT 
O 900:REM THE ALIEN MISSILE HIT THE WALL 

OR ZONE 

640 PY=PY—(DIR=14)*(PY>32)*F+(DIR=13)*(PY<11 
0)*F:F=1:REM UPDATE PLAYER 
650 PM*(P0+PY,P0+PY+11)=PLAYER*:SOUND 0,0,0, 

660 IF PEEK(M0FLG)=1 THEN GOSUB 1310:REM ERA 
SE THE PLAYER'S MISSILE 
670 IF PEEK(TRIGFLG)=0 THEN GOSUB 1310:POKE 
M0FLG,0:TMS=MS+PY+5:GOSUB 1300:POKE TRIG 
FLG,1:REM THE TRIGGER WAS PRESSED 
720 IF PEEK(HITFLG)<>0 THEN 790:REM NO COLLI 
SION 

725 REM THE PLAYER’S MISSILE HIT THE ALIEN 
730 SCR=SCR+10:POSITION 11-LEN(STR*(SCR))/2, 
5:? #6;SCR 
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735 PM*(TMS,TMS)=CHR*(0):POKE M0FLG,1:POKE H 
ITFLG,1:POKE 53278,0 

740 AY=AY+1:P=PEEK(705):REM PRESERVE COLOR O 
F ALIEN 

750 FOR 1=0 TO 1 1:Z = I*9:PM*(Pl+AY,Pl+AY + 9)=E 
XPLODE*(Z+l,Z+9) 

760 POKE 705,PEEK(53770):POKE 53279,0:SOUND 
0, 1*2,0, 15-1:FOR W=1 TO 2:NEXT W:NEXT I 
770 POSITION 5,5:PR I NT *6;”C10 SPACESJREM E 
RASE SCORE 

780 SOUND 0,0,0,0:POKE 705,P:BOTO 570 
790 IF AY=PY THEN 870:REM TOO CLOSE FOR COMF 
ORT 

800 IF T ARBET = 0 THEN GOSUB 950:TARGET = TARGET 
(INDEX):REM SELECT A TARGET 
810 IF AYOTARGET THEN 840 
820 CNT=CNT—1:IF CNT THEN 630 
830 CNT=LEVEL:GOTO 870 

840 AY=AY+SGN(TARGET-AY):REM MOVE TOWARDS TA 
RGET 

850 PM*(Pl+AY,Pl+AY+11)=ALIEN* 

860 GOTO 630 

870 IF ABS(AY-PY)<10 THEN GOSUB 970 
875 IF PEEK(ALIEFLG)=0 THEN 630 

880 POKE ALIEFLG,0:TM1S=MS+AY+5:GOSUB 1320:T 
TAY=AY:GOTO 630 

900 P=ASC(PM*(P2+TTAY+5))*2-256:GOSUB 1330:P 
OKE 53278,0:REM CUT HOLE IN WALL 
910 IF P<0 THEN 990:REM WALL DESTROYED 
920 PM*(P2+TTAY+5,P2+TTAY+5)=CHR*(P> 

930 GOTO 630 

940 REM PICK A TARGET 

950 INDEX=INDEX+1:TARGET(INDEX)=INT(78*RND(0 
)+32):RETURN 
970 IF INDE X = 1 THEN 950 

980 TARGET = TARGET(INT(INDE X *RND(0)+1) ) :RETUR 
N 

990 REM DESTRUCTION OF PLAYER 

1000 FOR 1 = 1 TO 100: Z l=TTAY + 5 + I:Z2 = TTAY + 5—I 
1005 PM*(TMS,TMS)=CHR*(0):POKE M0FLG,1:POKE 
M0PFLG,72 

1010 IF Z1<126 THEN PM*(P2+Z1,P2+Z1)=CHR*(0) 
1020 IF Z 2 >30 THEN PM*(P2 + Z2,P2 + Z2)=CHR*(0) 
1030 IF Z1<126 OR Z 2 >30 THEN NEXT I 
1040 FOR 1=30 TO 1 STEP -l:FOR J=0 TO 20 STE 
P 3:SOUND 0,J+1,10,8:POKE 707,PEEK(5377 
0) :NE X T J:NEXT I 

1050 SOUND 0,0,0,0:SOUND 1,0,0,0:POKE 707,14 
: FOR W=1 TO 50:NEXT W:POKE 707,0 
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1060 FOR 1=0 TO 15 STEP 0.2:SOUND 0,I,8,I:PO 
KE 704,16+1 :NEXT I 
1070 SOUND 0,0,0,0 
10S0 Z1=PY:Z2=PY:INCR=0 

1090 Z1=Z1+INCR* <Z1<128) :Z2 = Z2-INCR* (Z2> = 0) : 
POKE 704,PEEK(53770) 

1100 PMt(P0+Z1,P0+Z1)= CHR*(255):PM*(P0+Z2,P0 
+Z2)=CHR*(255):POKE 53279,0 
1110 INCR=INCR+0.5:IF Z1C127 OR Z2>0 THEN 10 
90 

1120 FOR 1=1 TO 100:POKE 704,PEEK(53770):NEX 
T I 

1130 FOR 1=0 TO 7:POKE 5324B+I,0:NEXT I:GRAP 
HICS 18 

1140 POSITION 4,0: PRINT #6; " reT V * : PO 

SITION 3,5:PRI NT #6;"your score was:"; 
1150 POSITION 10-LEN(STR*(SCR))/2,7:PRINT #6 
; SCR 

1160 FOR 1=15 TO 0 STEP -0.2:SOUND 0,10+10*R 
ND(0),0,I:SOUND 1,100+10*RND(0),16,1 
1170 SETCOLOR 4,3, 1 4*RND(0) :NEXT I 
1280 RUN 

1300 Q=USR(ANORA,ASC(PM*(TMS,TMS)>,3,2):PM*( 
TMS,TMS)=CHR*(Q):RETURN 

1309 REM 

1310 Q=USR(ANORA,ASC(PM*(TMS,TMS)),12,1):PM* 
(TMS,TMS)=CHR*(Q):RETURN 

1320 Q=USR(ANORA,ASC(PM*(TM1S,TM1S)),12,2):P 
M*(TM1S,THIS)=CHR*(Q):RETURN 

1329 REM 

1330 Q=USR(ANORA,ASC(PM*(TM1S,TM1S)),3,1):PM 
*(TM1S,TMIS)=CHR*(Q):RETURN 

1400 TRIGFLG=1546:HITFLG=1547:M0FLG=1548:TMS 
= 1:T M1S =1 

1410 ALIEFLG=1550:C0LFLG=1551 
1420 AN0RA=1753:CMPFLG=1553 
1430 IF PEEK(1753)=104 THEN RETURN 
1440 GRAPHICS 18:? #6;“INITIALIZING" 

1450 RESTORE 1500:GOSUB 1500 
1460 A=USR(1536):RETURN 

1500 FOR 1=1536 TO 1552:READ A:POKE I,A:NEXT 
I 

1510 DATA 104,169,6,170,160,22,32,92,228,96, 
1,1,1,72,1,0,180 

1520 FOR 1=1558 TO 1709:READ A:POKE I,A:NEXT 
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1540 DATA 173,132,2,201,0,240.2,208,12,205,1 
2,6,240,12,169,0,141,10,6,240 
1550 DATA 58,205,12,6,240,53,238,13,6,238,13 
,6, 173, 13,6, 141,4,208, 173,8 
1560 DATA 208,41,2,208,9,173,13,6,201,190,14 
4,27,176,15,173,13,6,201,170,144 
1570 DATA 18,169,0,141,30,208,141,11,6,169,1 
,141,12,6,169,72,141,13,6,173 
1580 DATA 14,6,201,0,208,63,173,9,208,41,1,2 
08,21,173,9,208,41,12,208,29 
1590 DATA 206,16,6,206,16,6,173,16,6,141,5,2 
08,208,35,169,1,141,17,6,141 
1600 DATA 12,6,169,72,141,13,6,208,5,169,1,1 
41,15,6,169,0,141,30,208,169 
1610 DATA 1,141,14,6,169,180,141,16,6,76,95, 
228 

1620 FOR 1=1753 TO 1791:READ A:POKE I,A:NEXT 
I 

1630 REM — I I I I + 

1640 DATA 104,104,104,141,215,6,104,104,141, 
216,6,104,104,201,1,208,9,173,215,6 
1650 DATA 45,216,6,76,249,6,173,215,6,13,216 
,6,133,212,169,0,133,213,96 
1660 RETURN 
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The C runcher 

Andrew Lieberman 


Many longer programs could benefit from this memory-saving technique, 
which saved 7,000 bytes in the music DATA within the author's music 
program. 

Programs are written every day using DATA statements. Often 
the numbers in these statements are for SOUND and PLOT 
commands and happen to be in the range of 0 to 255. Frequently, 
the program loads these numbers into a matrix. This method of 
DATA storage is inefficient; it wastes lots of memory. 

There is, however, a way to solve this problem, and an easy 
way to change already existing programs to a more compact form. 
Using the "Cruncher," I knocked 7K — that's right, 7000 bytes — 
off a music program. It took about 40 minutes, and that includes 
debugging. Many programs can easily be done in half that time. 

Each character on the Atari has an ATASCII value ranging 
from 0 to 255. Look in your BASIC Reference Manual, Appendix C. 
Take, for example, the letter A. Its corresponding number is 65. By 
using this code, we can convert each number (using one to three 
digits) to a single character using only one character. It would be a 
very tedious process if we took each number, looked it up on the 
chart, and then replaced the number in a program with a single 
character. 

That's where the Cruncher comes in. It won't do all of the 
work, but it will do most of it. We can further save memory by 
condensing all of these single characters into one large string 
instead of a matrix. This is the big memory saver: each character in 
a matrix takes about seven bytes, but in a string takes only one. 

So, pull out a program with a lot of numbers and let's get to work. 
(Note: This is not a standard procedure. Your program may 
require modifications of the process of conversion. Read through 
the procedure and think about what you are doing; otherwise, 
you may find yourself hopelessly lost.) 

First, type the following subroutine into your Atari, and LIST 
it to cassette or disk. This way you can load it on top of the 
program to be converted. 
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0 A = PEEK<136)+PEEK ( 137) *256:? "WHAT 
LINE"INPUT X:TRAP 32003:GOTO 320 
00 

32000 LI=PEEK(A)+PEEK(A+l)*256:IF LI 
OX THEN A=A+PEEK<A+2):GOTO 32 
000 

32001 A=A+1:IF PEEK(A)=90 THEN READ 
D:POKE A,D 

32002 GOTO 32001 

32003 END 

Second, load the program to be converted. Put in a DIM 
statement and DIMension a string, say A$, to the number of 
numbers in the DATA statements. If your program READs the 
DATA and then puts it in a matrix, get rid of the READ state¬ 
ments. Otherwise, change a routine like this: 

100 FOR 1=1 TO 100:READ A,B:PLOT A,B 
:NEXT I 

to this: 

100 FOR 1=1 TO 100:A=ASC<At(I,I)>:B= 

ASC(At<1+1,1+1):PLOT A,B:NEXT I 

or better yet: 

100 FOR 1=1 TO 100:PLOT ASC(At(I,I)) 

,ABC(At<1+1,1+1)):NEXT I 

If your program handles the DATA in a different way, then it's up 
to you to figure out the rest of that part on your own. 

Now we are almost ready to convert the DATA. Before we 
can put the characters into A$, we must have an A$. It is already 
DIMensioned, but we must add space for the characters in the 
program. Get an idea as to approximately how many numbers 
are to be converted, say 200. Then type something like this into 
your program: 

50 A*(1,50)="ZZZZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

52 A*(51,100)=" ZZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

54 A$(101,150)=”ZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

56 A* <151,200)="ZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

58 At <201,225)="ZZZZZZZZZZZZZZZZZZZZ 
ZZ " 

It doesn't hurt to put in some extras; you can always take them 
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out later. To easily duplicate a line, just type it, press RETURN, 
move the cursor back to the line number, change it, and press 
RETURN. (Note: You must use capital Z's.) Once you have done 
this, type RUN. Tell the computer what line your Z's start at (in 
our sample, 50). Now, wait while the computer figures everything 
out. When READY appears, LIST the program and see what 
happens. Voildl The Z's now look like a lot of garbage! 

Fourth, and last, get rid of any extra Z's and delete line 0, 
lines 32000 to 32003, and all of the numerical DATA statements. 
Now type RUN and watch your program run faster than ever. Sit 
back and say to yourself, "Gee, that was easy. What program 
should I fix next?" 

The Mystery Revealed 

For those of you who would like to know how this program 
works, I will explain it step by step. The first thing the computer 
does is find out where the program is stored in RAM. By PEEKing 
addresses 136 and 137, the Cruncher finds out the first address of 
the program. The TRAP is so that when the computer is out of 
DATA, it ENDs without an error. 

Next, the computer finds line X. The first three bytes of each 
line give very important information. The first two tell the line 
number, and the third tells the length. To check if we are at line X, 
we first find out at which line we are. If LI isn't equal to X, we 
must advance the pointer to the next line. We do this by adding 
the length of the line to our original number and trying again. 

Now the conversion process begins. A loop begins that 
checks each address to see if it is 90, or a Z. If it is, the program 
READs a piece of DATA and POKEs it into the program. We then 
loop back and continue the process. When we run out of DATA, 
the TRAP is sounded and the program ENDs. 
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PEEK and POKE 
Alter natives 

■■■■■■■ Jerry White 


This tutorial shows a quick and easy way to select random numbers using 
PEEK and POKE to increase speed. The technique is also demonstrated as 
an alternative to the SOUND command. 

When writing a BASIC program, it is often necessary to find the 
fastest possible method to achieve a desired result. When speed is 
important, a machine language subroutine is usually the best 
alternative. In many cases, however, using PEEK and POKE 
instructions instead of conventional routines can significantly 
increase the speed. 

In each of the four example routines below, RAM location 540 
is used as a timer. The term jiffy is used to denote 1/60 second. 
Location 540 counts backwards until it reaches zero. When the 
number 255 is POKEd into this location, it will take 414 seconds to 
count back to zero. 

Each routine begins with a GRAPHICS 0 command to clear 
the screen. You might want to try mode 2 later on to see how the 
elapsed time of each routine is affected. Standard text mode was 
chosen so the routines could be listed on the screen and the 
elapsed time displayed. 

Time tests 1 and 2 show two ways to select a random number 
between 0 and 255. The first method is the conventional way. For 
demonstration purposes, the random number was selected ten 
times. 

The second listing provides an alternative method which is 
four times faster. Our number is selected with a PEEK at location 
20. This is also a jiffy counter, but unlike location 540, this one 
counts forward until it reaches 255. It is then reset to 0 and 
continues counting normally. This method of selection is only 
useful when a single random number is required. For example, to 
return a decision on a 50 percent probability, check location 20 for 
less than, or for equal to, 127. This method would not be effective 
if more than one number is needed within a short period of time. 
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It is, however, an excellent alternative in most cases, and is much 
faster than the conventional method because the multiplication is 
eliminated. 

To obtain a truly random integer between 0 and 255, PEEK 
location 53770. Try the following one-line program to see the 
random number generator in action: 

10 ? PEEK<53770):BDTO 10 

Time test routines 3 and 4 loop through the 256 pitches of 
Atari's undistorted sound. Test 3 uses the conventional SOUND 
command. The execution time was 123 jiffies, or just over two 
seconds. Test 4 uses the POKE command. The difference was 
17/60 second. 

There are many situations where the PEEK and POKE 
commands can be used to speed up your BASIC programs. There 
are also things that could not be done at all in Atari BASIC were it 
not for PEEK and POKE. 

Atari BASIC Time Test 1 

5 GRAPHICS 0:LIST 

10 POKE 540,255:FOR TEST=1 TO 10:X=RND<0)*25 
6:NEXT TEST:TIME=PEEK<540) 

20 PRINT :PRI NT "TIME=";255-TIME; " 60th of a 
second.” 

TIME=16 60ths of a second 

Atari BASIC Time Test 2 

5 GRAPHICS 0:LIST 

10 POKE 540,255:FOR TEST=1 TO 10:X=PEEK(20): 

NEXT TEST:TIME=PEEK<540) 

20 PRINT :PR I NT " TIME=";255 — TIME; " 60th of a 
second." 

TIME=4 60ths of a second 

Atari BASIC Time Test 3 

5 GRAPHICS 0:LIST 

10 POKE 540,255:FOR TEST=0 TO 255:S0UND 0,TE 
ST,10,2:NEXT TEST:TIME=PEEK<540) 

20 PRINT :PR I NT "TIME=";255 —TIME; " 60th of a 
second." 

TIME=123 60th s of a second 
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Atari BASIC Time Test 4 

5 GRAPHICS 0:LI ST :SOUND 0,0,0,0:POKE 53761, 
162 

10 POKE 540,255:FOR TEST=0 TO 255:POKE 53760 
,TEST:NEXT TEST:TIME=PEEK(540) 

20 PRINT :PR I NT "TIME=";255—TI ME;“ 60th of a 
second." 

TIME=106 60t h s of a second 
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1200 Memory Map: 

An Initial Examination 

Ian Chadwick 

Although a short-lived product on the commercial market, the 
Atari 1200XL managed to make it into quite a few homes before 
the line was dropped to make way for the new line. Not that the 
1200 was a bad product; it simply lacked several competitive 
features, such as expansion capability. 

Compatibility with software written for 400 and 800 
machines is possible only if the programs obeyed the rigid restric¬ 
tions of the official operating system routines, laid out in the Atari 
technical manuals. Much software makes direct jumps into the 
OS that cause programs to crash when run on the 1200. BASIC 
programs usually work, but there may be difficulty with PEEK, 
POKE, and USR routines. 

The following material is all taken from official Atari releases, 
including the technical notes for the 1200XL. Memory locations 
can be cross-referenced with the description in COMPUTERS 
Mapping the Atari when they are described as moved. This is the 
location these routines or locations have been moved to in the 
1200, but they still perform the same function as in the 400 or 800. 

I have tried to provide all known ranges of values and proper 
explanations, usually taken from the rare 1200XL technical 
manual but not available in most outlets. I suggest that you try 
POKEing different values in these locations to see the results. 

The format attempts to follow that of Mapping the Atari as 
closely as possible. References to 400/800 memory use relate 
directly to the Revision B ROMS, not always earlier versions. I 
trust it will prove a useful guideline for 1200 owners. 

DECIMAL HEX LABEL 

00 00 LNFLG 

Reserved for in-house debugging routines. 

400/800 use: LINZBS; used in power-up sequence. 

01 01 NGFLAG 

Reserved for power-up self-testing routines. 

400/800 use: see location 00. 
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28 1C ABUFPT 

Reserved for OS use, most likely as a buffer pointer. 

400/800 use: PTIMOT, moved to 788 ($314). 

29 ID ABUFPT 

Reserved for OS use. 

400/800 use: PBPNT, moved to 734 ($2DE). 

30 IE ABUFPT 

Reserved for OS use. 

400/800 use: PBUFSZ, moved to 735 ($2DF). 

31 IF ABUFPT 

Reserved for OS use. 

400/800 use: PTEME now deleted. 

54 36 LTEMP 

Temporary buffer for loader routine. The technical notes contain 
extensive information about enhancements to the peripheral 
handling in the 1200. One inclusion is a relocating loader, used to 
upload peripheral handlers through the SIO. Of particular impor¬ 
tance are the two additional device inquiries (polls) to the 1200XL. 
See the 1200XL Operating System Manual for more information. 
400/800 use: CRETRY, moved to 668 ($29C). 

55 37 LTEMP 

Same as above. 

400/800 use: DRETRY, moved to 701 ($2BD). 

74 4A ZCHAIN 

Temporary storage for handler loader. 

400/800 use: CKEY, moved to 1001 ($3E9). 

75 4B ZCHAIN 

Same as above. 

400/800 use: CASSBT, moved. Official sources put this, as well as 
CKEY, above, at 1001.1 suspect it is at 1002 ($3EA) instead. 

96 60 FKDEF 

Function key definition table pointer, low byte. You can redefine 
the function keys alone, by setting up an eight-byte table for the 
keys FI to F4 and SHIFT FI to SHIFT F4. You then assign each 
byte a value (the internal code: see "Reading the Keyboard 
Codes" and Appendix A) to correspond to the key. This way, you 
can get the function keys to act as any other keys. You must, 
however, make sure that you do not assign to the function keys 
their own value (138 to 141, $8A to $8D). That is, you must not 
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make FI perform FI (138, $8A); otherwise you will generate an 
endless loop in which the system goes to check what the key 
should be, sees it is the same, returns, sees there is a table to 
check, goes back, etc. See locations 121,122, ($79, $7A) for infor¬ 
mation on redefining the keyboard. 

400/800 use: NEWROW, moved to 757 ($2F5). 

97 61 FKDEF 

Same as above, high byte. 

400/800 use: NEWCOL, moved to 758 ($2F5). 

98 62 PALNTS 

Flag for PAL or NTSC version display handler. This was previ¬ 
ously at 53268 ($D014). 

400/800 use: NEWCOL, second register, moved to 759 ($2F6). 

121 79 KEYDEF 

Pointer to key definition, low byte. You can redefine almost the 
entire keyboard on the 1200XL by setting up a 192-byte table and 
POKEing the address in these two bytes. When you press a key, 
the system will respond with the new definition you have 
given it. 

The table consists of three 64-byte portions: lowercase keys, 
SHIFT + key, CTRL + key. Each key corresponds to a byte as 
below: 


DEC/HEX 

KEY 

DEC/HEX 

KEY 

00/00 

L 

17/11 

HLP 

01/01 

J 

18/12 

C 

02/02 


19/13 

F3 

03/03 

FI 

20/14 

F4 

04/04 

F2 

21/15 

B 

05/05 

K 

22/16 

X 

06/06 

+ 

23/17 

Z 

07/07 

* 

24/18 

4 

08/08 

O 

25/19 


09/09 


26/1A 

3 

10/0A 

P 

27/1B 

6 

11/0B 

U 

28/1C 

ESC 

12/OC 

RET 

29/1D 

5 

13/OD 

I 

30/IE 

2 

14/OE 

- 

31/IF 

1 

15/OF 

= 

32/20 


16/10 

V 

33/21 

SPACE 
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DEC/HEX 

KEY 

DEC/HEX 

KEY 

34/22 


49/31 


35/23 

N 

50/32 

0 

36/24 


51/33 

7 

37/25 

M 

52/34 

BACKS 

38/26 

/ 

53/35 

8 

39/27 

logo key 

54/36 

< 

40/28 

R 

55/37 

> 

41/29 


56/38 

F 

42/2A 

E 

57/39 

H 

43/2B 

Y 

58/3A 

D 

44/2C 

TAB 

59/3B 


45/2D 

T 

60/3C 

CAPS 

46/2E 

W 

61/3D 

G 

47/2F 

Q 

62/3E 

S 

48/30 

9 

63/3F 

A 


Note that there are intentional blanks in the table where no key 
correspondence exists. Using the table above, to redefine the A 
key, you would change the 63rd byte in each of the three contig¬ 
uous parts: the first to redefine the lowercase, the second for the 
SHIFTed key, and the last for the CTRL and key. 

You may place any value between 0 and 255 ($FF) in these 
bytes; values between 0 and 127 ($7F), 146 and 255 ($92 to $FF) are 
the ATASCII codes. The following values have special meanings 
to the 1200XL: 

DEC/HEX USE: 

128/80 Ignored as invalid key combination. 

129/81 Turns the keys to inverse output (normal becomes 

black on colored screen). 

130/82 Upper/lowercase toggle. 

131/83 Uppercase lock. 

132/84 Control key lock. 

133/85 End of file. 

134/86 to 136/88 are ATASCII code. 

137/89 Toggles keyboard click on or off. 

138/8A Function one; that use defined by the function key 

description. 

139/8B to 141/8D are functions two, three, and four, respectively. 
142/8E Cursor to home (upper-left comer of the screen). 

143/8F Cursor to bottom left-hand comer of the screen. 

144/90 Cursor to the left margin, beginning of the phys¬ 

ical line. 
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145/91 Cursor to the right margin, end of the physical 

line. 

See locations 96, 97 ($60, $61) for redefining the function keys 
alone, without redefining the rest of the keyboard. You cannot 
redefine the following keys, since they are either hardwired into 
the system or operate as a special case: 

BREAK, SHIFT, CTRL, OPTION, SELECT, START, RESET, HELP 
CTRL-1, CTRL-F1 to CTRL-F4. 

400/800 use: ROWINC, moved to 760 ($2F8). 

122 7A KEYDEF 

Same as above, high byte. 

400/800 use: COLINC, also called CLINC, moved to 761 ($2F9). 

563 233 LCOUNT 

Temporary counter for loader register. See section 5.0 in the 
1200XL Operating System Manual for information concerning the 
relocatable loader routine. 

400/800 use: SPARE, not used. 

568,569 238,239 RELADR 

Relocatable loader routine address pointers. 

400/800 use: same as above. 

581 245 RECLEN 

Loader routine variable register. 

400/800 use: same as above. 

583-618 247-26A _ 

Reserved for future use. 

400/800 use: LINBUp now deleted from the OS. 

619 26B CHS ALT 

Character set pointer, defines which character set is to be called 
into use at the next toggle of the CTRL-F4 keys. Initialized to 204 
($CC) to point to the international set. 

400/800 use: see location 583 ($247). 

620 26C VSFLAG 

Fine scroll temporary register. 

400/800 use: see location 583 ($247). 

621 26D KEYDIS 

Keyboard disable register. POKE with 0 to enable keyboard use, 
255 to disable it. Remember that you can reenable keyboard use 
from the keyboard by pressing CTRL + FI. You may also disable 
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the keyboard with the same combination. LED 1 will be on when 
the keyboard is disabled. 

400/800 use: see location 583 ($247). 

622 26E FINE 

Flag for fine scroll enable in GR. 0 (text) mode. POKE with 255 for 
fine scrolling, 0 for coarse scrolling. Follow this POKE with a GR.O 
command or an OPEN command for device E:. The display list 
created for fine scrolling will be one byte larger than the normal, 
coarse scroll list. The OS also places the address of a DLI (display 
list interrupt) at VDSLST (512, 513; $200, $201). The color register at 
53271 ($D017) is also altered for the last visible line on the screen. 
400/800 use: see location 583 ($247). 

648 288 HIBYTE 

Register for loader routine. 

400/800 use: CSTAT, deleted from OS use. 

654 28E NEWADR 

Loader routine register, same as above. 

400/800 use: reserved (spare). 

668 29C CRETRY 

Moved from 54 ($36). 

400/800 use: TMPX1, now deleted. 

701 2BD DRETRY 

Moved from 55 ($37). 

400/800 use: HOLD5, now deleted. 


713,714 2C9,2CA RUNADR 

Register for loader routines. 

400/800 use: spare. 

715,716 2CB,2CC HIUSED 

Same as above. 

400/800 use: spare. 

717,718 2CD,2CE ZHIUSE 

Same as above. 

400/800 use: spare. 

719,720 2CF,2D0 GBYTEA 

Same as above. 

400/800 use: spare. 

721,722 2D1,2D2 LOADAD 

Same as above. 

400/800 use: spare. 
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723,724 2D3,2D4 ZLOADA 

Same as above. 

400/800 use: spare. 

725,726 2D5,2D6 DSCTLN 

Disk sector size register. The 1200XL establishes sector size at 128 
($80) bytes at power-up or reset, but you can alter the size to any 
length from 1 to 65536 ($FFFF) bytes. You can also write to the disk 
without write-verify by using the command "P". 

400/800 use: spare 

727,728 2D7,2D8 ACMISR 

Reserved, purpose unknown 
400/800 use: spare. 

729 2D9 KRPDEL 

Keyboard auto-key delay rate; the time lapsed before the auto-key 
repeat begins. Default is 48. POKE with the number of VBLANK 
intervals before the repeat begins; each VBLANK is 1/60 of a 
second, so a value of 60 would equal a one-second delay. 

400/800 use: spare. 

730 2DA KEYREP 

Keyboard auto-key rate. Default is six, which gives a rate of ten 
characters per second. POKE with the number of VBLANK inter¬ 
vals before a keystroke is repeated; at one, you will get 60 charac¬ 
ters per second repeat rate! See the 1200XL Operating System 
Manual for information concerning the difference between NTSC 
(North American) and PAL (English) system rates (NTSC has a 
1/60 rate, PAL 1/50). 

400/800 use: spare. 

731 2DB NOCLIK 

Key click disable; POKE with 255 to disable, 0 to enable. In the 
older machines, the only way to properly disable the click was to 
install an on/off switch. You may also use the CTRL-F3 keys to 
toggle keyboard click on and off. 

400/800 use: spare. 

732 2DC HELPFG 

Flag for the HELP key enable. POKE with 0 to clear it. When 
PEEKed, 17 = HELP key pressed, 81 = SHIFT + HELP pressed, 
and 145 = CTRL + HELP pressed. HELPFG is not cleared after the 
HELP key has been pressed once. You must clear it yourself under 
program control. 

400/800 use: spare. 
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733 2DD DMASAV 

DMA state save register. This saves the screen graphics state 
when you disable the screen (CTRL-F2) for faster calculations. 
400/800 use: spare. 

734 2DE PBPNT 

Moved from 29 ($1D). 

400/800 use: spare. 

735 2DF PBUFSZ 

Moved from 30 ($1E). 

400/800 use: spare. 

745 2E9 HNDLOD 

Loader routine handler flag. 

400/800 use: spare. 

746-749 2EA-2ED DVSTAT 

These four device status registers are also used by the 1200XL to 
contain information sent back to the computer by the peripheral 
after a type three or four poll (these are new poll types; see the 
1200XL Operating System Manual). The bytes will contain, in order: 
746: Low byte of the handler size, in bytes (must be an even 
number). 

747: High byte of the handler size. 

748: Device SIO (serial I/O) address to be used for loading. 

749: Peripheral revision number. 

756 2F4 CHBAS 

Character set select, as in the 400/800. Default is 224 ($E0) for 
domestic set; POKE with 204 ($CC) for the international set. 
When you press CTRL-F4, the value in CHBAS is swapped with 
that in CHSALT (619; $26B). If you want to select the international 
set for the next toggle, POKE 200 ($C8) here, rather than 204 
($CC). According to the 1200XL Operating System Manual , the OS 
tests CHBAS and if it finds 200 in that location, swaps the value 
with that in CHSALT, usually 204. When the international char¬ 
acter set is toggled, LED 2 is lit. 

757 2F5 NEWROW 

Moved from 96 ($60). 

400/800 use: spare. 

758,759 2F6,2F7 NEWCOL 

Moved from 97, 98 ($61, $62). 

400/800 use: spare. 


240 



Beyond BASIC 


760 2F8 ROWINC 

Moved from 121 ($79). 

400/800 use: spare. 

761 2F9 COLINC 

Moved from 122 ($7A). 

400/800 use: spare. 

782 30E JMPERS 

Option jumpers, designed to tell the OS how the system is config¬ 
ured. Only J1 (Bit 0) has been assigned. If Bit 0 equals zero (low), 
then the self-test will run. Bits 1-3 are reserved for future use, bits 
4-7 are unused. 

400/800 use: ADDCOR, deleted. 

788 314 PTIMOT 

Moved from 28 ($1C). 

400/800 use: TEMP2, moved to 787 ($313). 

829 33D PUPBTl 

Power-up and reset register one. 

400/800 use: reserved (spare). 

830 33E PUPBT2 

Power-up and reset register two. 

400/800 use: reserved (spare). 

831 33F PUPBT3 

As above, register three. 

400/800 use: reserved (spare). 

1000 3E8 SUPERF 

Screen editor register. 

400/800 use: reserved (spare). 

1001 3E9 CKEY 

Moved from 74 ($4A). 

400/800 use: reserved (spare). 

1002 3EA CASSBT 

Moved from 75 ($4B). 

400/800 use: reserved (spare). 

1003 3EB CARTCK 

Cartridge checksum. Likely the way the system ascertains the size 
(8K or 16K) of a cartridge when in place. 

400/800 use: reserved (spare). 
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1005-1016 3ED-3F8 ACMVAR 

Reserved for OS variables. On power-up and coldstart, variables 
from 1005 to 1023 ($3ED to $3FF) are set to zero. On warmstart or 
reset, they are not changed. 

400/800 use: reserved (spare). 

1017 3F9 MINTLK 

Same as above. 

400/800 use: reserved (spare). 

1018 3FA GINTLK 

Cartridge interlock register. 

400/800 use: reserved (spare). 

1019,1020 3FB,3FC CHLINK 

Handler chain. 

400/800 use: reserved (spare). 

1792-7419 700-1CFB _ 

Used by DOS when loaded, otherwise available as user RAM. 

39967-40959 9C1F-9FFF .... 

Display list and screen RAM. This will get moved to lower 
addresses if the cartridge is 16K (using up the memory from 32768 
to 49151; $8000 to $BFFF). The normal 8K cartridge uses RAM 
between 40960 and 49151 when installed ($A000 to $BFFF). Two 
control lines tell the system a cartridge is installed. 

49152-52223 C000-CBFF _ 

OS ROM. In the 400/800, the block from 49152 to 53247 ($C000- 
$CFFF) was unused and unusable. Many of the interrupt handler 
routines have been moved into this block now, the reason for the 
incompatibility with 400/800 programs which jump to the old 
locations rather than to official vectors in RAM. 

The bytes between 49152 and 49163 ($C000-$C00B) contain 
identification and checksum data for the ROM between 49152 and 
57343 ($DFFF) using the following format: 

DEC/HEX USE: 

49152/C000 Checksum low byte; sum of all of the bytes in 
ROM except the checksum bytes themselves. 
49153/C001 Checksum high byte. 

49154/C002 Revision date, using the form DDMMYY, where 
each four bits is a BCD digit. The byte has two 
four-bit numbers for D1 and D2 in the upper and 
lower halves, respectively. 

49155/C003 Revision date, month code. Ml and M2. 
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49156/C004 

49157/C005 

49158/C006 


49159/C007 

49160/C008 

49161/C009 

49162/C00A 

49163/C00B 

52224-53247 


Revision date, year code, Y1 and Y2. 

Option byte, reserved. Contains zero for thel200XL. 
Part number, using the format AANNNNNN, 
where A is an ASCII character and N is a four bit 
BCD digit. This byte is Al. 

Part number, A2. 

Part number, N1 and N2. 

Part number, N3 and N4. 

Part number, N5 and N6. 

Revision number. 

CCOO-CFFF CHARSET2 


International character set, one of two in the 1200. The other is at 
the same place as in the 400/800; 57344-58367 ($E000-$E3FF). 

53248-53503 D000-D0FF GTIA 


GTLA and graphics registers, as in the 400/800. The self-test code 
is physically located between 53248 and 55295 ($D000 to $D7FF) 
but moved to 20400 to 22527 ($5000 to $57FF) when called up. 

53504-53759 D100-D1FF _ 


Unused in both 400/800 and 1200 versions. 


53760-54015 D200-D2FF POKEY 

POKEY registers, same as in the 400/800. 

54016-54271 D300-D3FF PIA 

PIA registers, same as in the 400/800. 

54017 D301 PORTB 

Used to control the LEDs and the memory management, enabling 
you to disable the OS ROM and enable the RAM. Bit 0 controls 
location 49152-53247 ($C000-$CFFF) and 55296-65535 ($D800- 
$FFFF). When set to zero, the OS is replaced by RAM. However, 
unless another OS has been provided, the system will crash at the 
next interrupt. Bit 7 controls the RAM region 20480-22527 ($5000- 
$57FF) and is normally enabled (set to one). If disabled (set to 
zero), then the OS ROM is enabled, the memory access remapped 
and access provided to the self-test code physically present at 
53248-55295 ($D000-$D7FF). If LED 1 is on, then the keyboard is 
disabled. If LED 2 is on, then the international character set is 
selected. 


400/800 use: PIA PORTB. Since there are only two controller jacks 
(PORTA), this is no longer used in the 1200, meaning only two 
game controllers may be attached at once, rather than four. 
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54272-54527 D400-D4FF ANTIC 

ANTIC registers, same as in 400/800. 

54528-55295 D500-D7FF _ 

Unused in both 400/800 and 1200 versions of the OS. Any access 
read or write in the 54528 to 54783 ($D500 to $D5FF) range enables 
the cartridge control line CCNTL in the cartridge interface as in 
the 400/800. 

55296-57343 D800-DFFF FP 

Floating point package as in the 400/800. The 1200XL corrects a 
bug in the FP package which was in the REV B ROMs. You now 
get an error status when you try to calculate the LOG or LOG10 of 
zero. 

57344-58367 E000-E3FF CHARSET1 

Domestic character set, as in the 400/800. The international char¬ 
acter set location is listed above. This is the default set. Register 
756 ($2F4) defines which is in use (see above). 

58368-65535 E400-FFFF OS 

OS ROMS. There are many changes in the 1200 OS, making it 
quite different from the 400/800 OS, but advertised entry points 
and vectors have been left the same. There are five new fixed 
entry point vectors which have been added to the 1200XL: 
58496/E480 JMP PUPDIS: entry to power-on display. 

58499/E483 JMP SLFTST: entry to the self-test code. 

58502/E486 JMP PHENTR: entry to the handler, uploaded from 
peripheral or disk. 

58505/E489 JMP PHULNK: entry to uploaded handler unlink. 
58508/E48C JMP PHINIS: entry to uploaded handler initializa¬ 
tion. 

58481 E471 .... 

The Atari 400/800 had a blackboard mode; the Memo Pad mode 
you saw when typing BYE in BASIC. This no longer exists on the 
1200XL; it has been replaced by the noninteractive Atari advertise¬ 
ment logo. 

Bytes from 65518 to 65529 ($FFEE to $FFF9) contain checksum 
and identification for the ROM block 57344 to 65535 ($E000 to 
$FFFF) in a similar format to that at location 49152 ($C000). The 
bytes used are as follows: 

DEC/HEX USE 

65518/FFEE Revision date D1 and D2. 

65519/FFEF Revision date Ml and M2. 
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65520/FFF0 Revision date Y1 and Y2. 

65521/FFF1 Option byte; hardware product identifier; for the 
1200XL it should read one. 

65522/FFF2 to 65526/FFF6 Part number using the form 
AANNNNNN. 

65527/FFF7 Revision number. 

65528/FFF8 Checksum byte, low byte. 

65529/FFF9 Checksum byte, high byte. 

Bytes from 65530 to 65535 ($FFFA to $FFFF) contain power-on, 
RESET, NM, and IRQ vectors. 

65521 FFF1 .... 

If you PEEK here, you should get one and then 65527 ($FFF7) will 
have the revision number. If not one, then the product code will 
be here and 65527 will contain the OS revision number. This iden¬ 
tifies the OS as that of the 1200XL. Accordingly, if you PEEK 65527 
and 65528 ($FFF7, $FFF8) and get 221 ($DD) and 87 ($57) respec¬ 
tively, you have the 400/800 Revision A ROMS. If you get 243 ($F3) 
and 230 ($E6), you have the Revision B ROMS. PAL versions will 
read 214 ($D6) and 87 ($57), 34 ($22) and 88 ($58) respectively. If 
location 64728 ($FCD8) is not 162 ($A2) then the product is a 
1200XL or future computer. 

New Graphics Modes 

Four new graphics modes are available on the 1200 from BASIC: 
GRAPHICS 12,13,14, and 15. These are the same as modes 
described in the technical manuals but previously unavailable in 
BASIC. 

GRAPHICS 12 is ANTIC mode 4, a four-color mode (plus 
background). Each character on the screen is the same size as a 
GRAPHICS 0 character but only four pixels are displayed instead 
of eight as in GRAPHICS 0. It can be well used by a redefined 
character set. The screen has 20 lines; to obtain the full 24 lines, 
use GRAPHICS 12+ 16. 

GRAPHICS 13 is ANTIC mode 5, another four-color mode 
(plus background), this time with characters double the physical 
space of the GRAPHICS 0 characters. As in GRAPHICS 12, only 
four pixels are displayed; the system interprets definition in the 
character sets by bit pairs, rather than single bits as in GRAPHICS 
0. The screen has ten lines and can be expanded to 12 by 
GRAPHICS 13 +16. Both GRAPHICS 12 and GRAPHICS 13 use 40 
bytes of screen RAM per line. 
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In both GRAPHICS 12 and GRAPHICS 13, the color of the 
screen pixel depends on the bit pair in the byte addressed. Each 
character can be built of eight bytes like the GRAPHICS 0 charac¬ 
ters, but bits are paired for screen presentation. If the bits have the 
value below, then the color shown appears on the screen: 
VALUE/BINARY COLOR 

0/00 BAK 

1/01 PFO 

2/10 PF1 

3/11 If Bit 7 of the character = 0 (the color 

modifier), then PF2 is used, else 
if Bit 7 = 1, then PF3 is used. 

GRAPHICS 14 is ANTIC mode 12 ($C), a two-color mode 
with a resolution of 160 pixels wide by 192 pixels high. This is 
sometimes called GRAPHICS " 6 V 2 " because each line is one scan 
line high where GRAPHICS 6 is two scan lines high. Colors used 
are BAK and PFO. Only the first bit of a screen byte is used to 
identify the color. 

GRAPHICS 15 is ANTIC mode 14 ($E), known as GRAPHICS 
"7V 2 " and used in many popular commercial programs such as 
Datasoft's Micropainter. It is a four-color mode with a resolution of 
160 across by 192 down, each mode line being one scan line high. 
Colors used are BAK and PFO to PF2. Only the first two bits in a 
screen byte are used to identify the color of the byte. 

Data for New Screen Modes 



Memory Used: 

Mode 

Horizontal 

Line 

Vertical 

Line 

Colors 

Split 

Screen 

Full 

Screen 

12 

40 

20/24 

5 

1154 

1152 

13 

40 

10/12 

5 

664 

660 

14 

160 

160/192 

2 

4270 

4296 

15 

160 

160/192 

4 

8112 

8138 


Final Notes 

If you have a copy of Mapping the Atari, you may find it useful to 
make a note in the margins of the new locations of interrupt and 
other routines as defined by the vectors. Most of these are located 
between 512 and 1151 ($200 to $47F). These new pointers will show 
you where routines have been moved in the 1200. 
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A small one-pixel shift in the 1200's display may cause some 
programs to show different colors (particularly artifact colors in 
GRAPHICS 8) than they do on the 400/800. Colors (but not 
graphics modes) now conform to those displayed by the earlier 
CTLAchip. 

Some Revision B enhancements which are also in the 1200XL 
should be mentioned. First, the display handler will not clear 
memory beyond that indicated by RAMTOP (location 106; $6A). 
This means you can store data or machine language routines 
above the graphic display and have them remain intact when 
changing graphics modes. Second, you can assign a printer 
number from PI up to P8. The printer handler inserts an EOL in 
the printer buffer if none is there, before sending the buffer to the 
printer on a CLOSE. This allows the printer to immediately print 
the last line, rather than having to force it to do so. The CIO places 
an EOL in the input buffer when a record longer than the buffer 
size is being read. This allows you to still read a portion of a 
record even if a large enough buffer was not provided. Finally, the 
screen clear code will work no matter what the cursor coordinates 
are. 

If at all possible, try to obtain a copy of the 1200XL Operating 
System Manual. Much of what is vague here is explained there. 
There are many other, more subtle and technical differences 
between 400/800 use and 1200XL use. These are best explained in 
Atari's own manuals. The manual also contains instructions on 
how to redefine the Atari keyboard as a Dvorak layout and define 
GRAPHICS 12 and 13 characters, and it gives specific information 
on the new peripheral poll types and their use. 
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Merging Machine 
Langu age into BASIC 

Fred Pinho 


Merging machine language subroutines can be a time-consuming task. 

The program offered here will allow you to add machine language to a 
BASIC program as a string or as DATA statements. 

You've just bought your Assembler Editor cartridge, and you're 
starting to get into machine language programming. Hold it, 
before you go any further. If you haven't already heard, your 
assembler manual is chock full of errors. Run, don't walk, to the 
Atari hot line to request their errata sheets. It will save you grief 
and headaches, especially if you are cassette dependent. 

After writing and debugging your first machine language 
program with your Assembler Editor cartridge, you can now save 
it to cassette or disk as a binary file. You can also load it back into 
the computer and run the machine language program directly. But 
what if you want to combine this routine with a BASIC program? 
This is the objective of a majority of beginning machine language 
programmers. If you look on pages 66-67 of the Assembler Editor 
manual, you will find a merger program. However, the program is 
clumsy and unwieldy, especially in its handling of problem code 
values (such as the one which is the ATASCII equivalent of quota¬ 
tion marks). 

To overcome this problem, I've provided Program 1. This 
program will take your machine language and automatically 
convert it into a complete BASIC subroutine. This can then easily 
be added to your BASIC program. The subroutine is complete 
within itself. It requires only: 

• That your program have line numbers no greater than 
31000. 

• That you call the subroutine as early as possible in your 
program. 

This will allow you to reuse the subroutine variables in your 
program if you wish. Also the DIMension statements will be 
declared at the start of the program. 
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Your Options 

This utility program has a great deal of flexibility built-in. You can 
choose to store your machine language in a variety of ways: 

• As strings (probably the safest and most versatile method). 
The program will automatically generate the strings plus the 
DIMension statements to support them. It also will take 
care of the troublesome codes of 34 (ATASCII for quotes) 
and 155 (ATASCII for RETURN). 

• Storage at a specific location in memory. The location can be 
the same as specified in your binary file or it can be 
changed. The program will then generate a series of DATA 
statements. It will also provide a short routine that will 
READ the data and POKE it into memory. 

• Any number and combination of string and location storage 
can be used. The program will combine them into a single 
subroutine to set them up all at once. Just merge with your 
BASIC program and add a GOSUB to this subroutine. 

• The program will check your keyboard input and prompt 
you when you've made an error. 

The program, as written, sits in slightly less than 5K bytes of 
RAM after DIMensioning of arrays and strings. I've run it 
through the "Masher" program from the Atari Program 
Exchange. However, this saves only about 500 bytes. The program 
also then becomes very difficult to follow. So I've kept it as is. Type 
the program in and LIST it to disk or cassette. Don't SAVE it. 

Using the Utility 

To use the utility program, first store your machine language to 
disk or cassette as a binary file. If your source program is in RAM, 
this can be done through the assembler with this command: 

ASM,,#D:<filename> for disk or ASM„#C: for cassette. 

Note that what you wrote was the source code, not the actual 
object code which is the machine language program. Once you've 
done the above, turn off the computer to wipe out the source 
program. Then remove the Assembler cartridge, insert the BASIC 
cartridge, and boot the DOS into memory. 

If your program has already been assembled (converted to 
machine language) and the final machine language resides in 
RAM, then do the following: 
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For Disk 

SAVE #Disk File <starting address<end of routine 
address 

Example: SAVE #D:PROGRAM.OBJ<1400<17FF 

For Cassette 

SAVE #C:<start address<end address 
Note that all addresses are in a hexadecimal. 

Again, shut off the computer and replace the Assembler with the 
BASIC cartridge. 

To use this utility both the utility and the machine language 
program must be in RAM. The utility program occupies about 5K 
bytes of memory. Thus you must be careful to locate your machine 
language program so that it does not interfere with the BASIC 
program. You can locate the machine language either in page 6 or 
high up in memory just below the display list. To help you with 
the second method, the tables below define usable and safe living 
space for your machine language program. 


Table 1. Disk-Based System 


Computer 

RAM 

Suggested Safe Memory 

Decimal 

Hexadecimal 

Installed 

From 

J_ To _ 

From 

To 

8K 

16K 

12750 

Not enough memory 
15390 31CE 

3C1E 

24K 

12750 

23582 

31CE 

5C1E 

32K 

12750 

31774 

31CE 

7C1E 

40K 

12750 

39966 

31 CE 

9C1E 

48K 

12750 

39966 

31 CE 

9C1E 

Note: Assumes that you are in GRAPHICS 0, that the BASIC cartridge is 
and that the first part of DOS 2.0S (mini-DOS) is loaded. The mini 
5628 bytes. 

: installed, 
i-DOS occupies 
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Table 2. Cassette-Based System 


Computer 

RAM 

Installed 

Suggested Safe Memory 

Decimal 

Hexadecimal 

From 

1 To 

From 

To 

8K 

7100 

7198 

1BBC 

1C1E 

16K 

7100 

15390 

1BBC 

3C1E 

24K 

7100 

23582 

1BBC 

5C1E 

32K 

7100 

31774 

1BBC 

7C1E 

40K 

7100 

39966 

1BBC 

9C1E 

48K 

7100 

39966 

1BBC 

9C1E 

Note: Assumes that you are in GRAPHICS 0 and that the BASIC cartridge is installed. 


Machine Language to BASIC 

To convert your machine language to BASIC, proceed as follows: 

1. Load your machine language subroutine into its safe area. If 
from disk, first load the second part of DOS and then use 
option L (Binary Load). Then go back to BASIC. If you have a 
cassette, be careful. Page 65 of the Assembler Editor manual 
tells you to CLOAD your machine language. Trying that can 
give you a headache. The errata sheets from Atari give you a 
routine for cassette loading. 

2. ENTER the utility program which has previously been 
LISTed to disk or cassette (see step 6 if you are using 
cassette). 

3. RUN the program. The program will ask for the starting and 
ending addresses of your machine language routine in RAM. 
Answer in decimal only! All keyboard inputs for this program 
must be in decimal form. 

4. The program will then ask which method you desire for 
storage of your machine language. If you wish string storage, 
you will be prompted for the string name. You will also be 
asked if you wish a printout of the data to be inserted into the 
string. If so, you will be prompted to turn on the printer. 

5. If you desire to store machine language at a specific location, 
you will be asked if you wish storage at the same memory 
location as specified in step 3. Alternatively, you can store it 
at a different location. 
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6. Finally you'll be asked if you wish to make any additional 
conversions. If yes, the program will loop back. If not, the 
computer will CLOSE all files and END. Your BASIC subrou¬ 
tine will be stored on disk as a file labelled MLR.LST. If you 
are using a cassette, see Program 2 for required program 
modifications. 

7. After you're done, erase the utility program via NEW. Now 
enter your BASIC program. Finally, merge your machine 
language into your program by: 

For Disk 

ENTER "D:MLR.LST" 

For Cassette: 

See Program 2 

8. Now that the two programs are merged, type in a GOSUB 
statement to reference the first line number of MLR.LST (or 
the equivalent cassette file). 

And that's it; you're ready to go. 

Storing Machine Language in Strings 

I'd like to make some comments on storage of machine language 
in a string format. First, to do it correctly, you must write routines 
which are relocatable. That is, they must not contain any JMP or 
JSR instructions to a specific memory location within the 
program. Since the string can be located nearly anywhere in 
memory, nonrelocatable code will almost surely crash the 
computer. It's best to store your subroutines and data tables in 
page 6 of memory. These permanent addresses can then be safely 
called from within your routine. 

Another problem lies in proofreading your string. If you load 
your data into a string and then PRINT it to the screen, you will 
see many weird and wondrous things. What is happening is that 
the screen editor is interpreting the function of the printed 
graphics symbols and carrying out the function. For example, if 
the graphics symbol in your string is that for a "delete character," 
the computer will slavishly do it. Thus the string symbols seen on 
your screen are not correct (unless you're lucky). To check your 
string, use the following routine in direct mode. (First RUN your 
program to DIMension and initialize your string): 

L=LEN(string name$):FDR X=1 TO L:?AS 
□(string namel(X,X));",:NEXT X 


252 



Beyond BASIC 


1 


This routine prints the actual value of each byte stored in the 
string. 

Another serious problem with string storage of data is the 
occurrence of values of 34 or 155. The value 34 is the ATASCII 
representation of quotation marks. The value 155 is the ATASCII 
for RETURN. The presence of either will cause the screen editor to 
prematurely truncate your string and give you an error message. 
Thus the program does the following when it encounters either 
value: 

1. It inserts a space character in the string and notes the position 
in the string. 

2. It then writes the BASIC subroutine statements so that the 
values are inserted into the string without going through the 
screen editor. It uses the CHR$ function for this purpose. 

3. As presently set up, the program can handle up to 15 values 
of the quotes and of the RETURN characters. It checks for the 
total occurrence of these and warns you if there are too many. 

There you have it. I hope this program makes the difficult world 
of machine language a little more enjoyable. 


Table 3. Variables in Program 1 


A$ 

BATOP 

D0$ 

F 

I,S,T,X,Y 

L 

LS,LF 

LN 

LNO 

LR 

N 

QT 

QUOTE! ) 
RT 

RETRN( ) 
S 

SF,FF 

SO,FO 


Used to receive yes or no responses 
Top memory location of utility program 
Holds name of string used to store machine language 
(ML) 

Flag. Zero if string storage requested. Set to one if 
storage at a specific address is requested 
Loop counters 

Length of string required to store ML 
Initial and final position in string to be filled with data 
Line number of subroutine to be written for string 
storage 

Line number of DATA statements to be written for ML 
storage at a specific address 
Remaining length of string after subtracting 80 
Input value for choice of ML storage 
Total number of values of 34 in ML 
Holds position in string of ATASCII values of 34 
Total number of values of 155 in ML 
Holds position in string of ATASCII values of 155 
Temporary value for ML address 
New starting and final address of ML 
Initial starting and final address of ML 
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V Counter to indicate number of routines to be stored at 

specific addresses 

W Indicates cell in array RETRN( ) 

Z Indicates cell in array QUOTE ( ) 


Program 1. Merging ML into BASIC Disk Version 


10 CLR :GRAPHICS 0:POKE 752,1:P0KE 756,209:? 
" <5 SPACES! IST:T»HHIIa ITHTrllT-TrTa W.i: JJW:> JaTT " : G 
□SUB 600:POKE 756,224 
20 DIM A* ( 1) ,D0$(3) ,QUOTE(14) ,RETRN(14) 

30 D0*="C3 SPACES!":TRAP 580:GOSUB 740:V=0:O 
PEN #3,8,0,"D:MLR.LST":LNO=32050:LN=31000 
: F = 0 


40 ? :? :? "INPUT STARTING ADDRESS OF CODE": 

POKE 752,0 : GOSUB 590: INPUT S:SO=S:SF=S 
50 ? "INPUT FINAL ADDRESS OF CODE":GOSUB 590 
:INPUT S:FO=S:FF=S:GOSUB 640 
60 ? "STORAGE METHOD FOR ROUTINE?":? ” 

C3 SPACES!E 
C3 SPACES ! E: 

70 ? ” -C3 SPACES! E 
80 GOSUB 590:? :? "PLEASE TYPE NUMBER PLUS R 
ETURN!":INPUT N 

90 IF < N< >1 AND N< >2 AND N<>3) THEN ? " 

CBELLIWRONG RESPONSE!TRY AGA IN! ":GOSUB 60 
0:GOTO 60 

100 IF N=3 THEN ? :? "NEW STARTING ADDRESS F 
OR ROUTINE?":GOSUB 590:INPUT S:SF=S 
110 IF N=3 THEN ? "NEW FINAL ADDRESS FOR ROU 
TINE!":GOSUB 590:INPUT S:FF=S 
120 IF N=3 THEN IF FF-SF<>FO-SO THEN ? " 

CBELL!INCORRECT FINAL ADDRESS! TRY AGAIN 
!":? :GOTO 110 

130 IF N=1 OR N=3 THEN F=1:V=V+1:GOTO 180 
140 L=FO-SO+1:GOSUB 6B0:GOSUB 610 
150 ? "DO YOU WISH AN PRINTOUT":? "OF 

YOUR STRING DATA!":GOSUB 590:INPUT A$ 

160 IF At="Y" THEN N=4:? "HIT RETURN WHEN TH 
E PRINTER IS ON!":GOSUB 590:INPUT A*:OPE 
N #2,8.0, "P: " 

170 GOTO 260 

180 ? #3;LNO;” DATA ";SF;",";FF:LNO=LNO+10 
190 ? #3;LNO;" DATA "; 

200 FOR 1=0 TO 19 

210 IF SO+I=FO+1 THEN POP :IF I THEN ? #3;", 
Is? #3:LNO=LNO+10:GOTO 490 
215 IF SO+I=FO+1 THEN IF 1=0 THEN ? #3;-l:? 
#3:LNO=LNO+10:GOTO 490 
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220 IF I THEN ? #3;",”; 

230 ? #3;PEEK(SO+I>; 

240 NEXT I:? #3:LNO=LNO+10:SO=SO+20:GOTO 190 
260 IF N=4 THEN ? #2:? #2;"**DATA FOR M ;D0*; 

” * * " 

270 LB=1:Z=0:W=0:? #3;LN;” DIM ";D0$;"( " ; L ;" 

280 IF N=4 THEN FOR 1=0 TO L-l:? #2;PEEK(SO+ 
I) ; : IF I< L—1 THEN ? #2;","; 

290 IF N=4 THEN NEXT I 

300 LR=L—80:IF LR<=0 THEN LF=LS+L-1 
310 IF LR >0 THEN LF = LS + 80—1:L = LR 
320 ? #3; D0$; 11 ( " j L S ; ", " ;LF; '')=”; :? #3;CHR*(3 
4);:FOR I=LS TO LF 

330 IF PEEK(SO+I-1)=34 THEN ? #3;” QUOTE( 

Z)=1:Z=Z+1:GOTO 360 

340 IF PEEK(SO+I-1)=155 THEN ? #3;" ";:RETRN 

(W)=1:W=W+1:BOTO 360 
350 ? #3;CHRt(PEEK(SO+I-1 )> ; 

360 NEXT Is IF LR>0 THEN LS=LS+80:? #3;CHR*(3 
4):? #3:LN=LN+10:? #3;LN;" ”;:GOTO 300 

370 ? #3;CHR$(34):? #3:LN=LN+10 

380 QT=0:RT=0:FOR X=0 TO 14:IF QUOTE(X) THEN 
QT = QT + 1 

390 IF RETRN(X) THEN RT = RT+1 
400 NEXT X:IF QT=0 AND RT=0 THEN 490 
410 2 #3;LN;"RESTORE ";LN+20:LN=LN+10 
420 IF QT THEN ? #3;LN;" FOR X=1 TO ";QT;":R 
EAD Z:'';D0t; " (Z, Z) =CHR$ (34) : NEXT X":LN = L 
N+10 

430 IF QT THEN ? #3;LN;” DATA ";:FOR Y=0 TO 
QT—Is? #3;QUOTE(Y);:IF Y AND Y<QT-1 THEN 
? # 3 ; ", " ; 

440 IF QT THEN NEXT Ys? #3:LN=LN+10 
450 IF RT THEN ? #3;LN;" FOR X=1 TO ";RT;":R 
EAD Zs";D0$;"(Z,Z)=CHR$(155):NEXT X":LN= 
LN+10 

460 IF RT THEN ? #3;LN;" DATA ";:FOR Y=0 TO 
RT—Is? #3;RETRN(Y);:IF Y AND Y<QT-1 THEN 
? # 3 ; ", " ; 

470 IF RT THEN NEXT Ys? #3:LN=LN+10 
490 GOSUB 740:? "ALL DONE":GOSUB 590:INPUT A 
* 

500 IF A t ="N" THEN D0$="(3 SPACES}CLOSE #2 
-.GOTO 40 

510 IF F=0 THEN 570 

520 ? #3;"32000 W=0:V=VRESTORE 32050" 
530 ? #3;”32010 READ X,Y:FOR I=X TO Y:READ Z 
:POKE I,Z:NEXT I” 
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540 


550 

560 

570 

580 


590 


600 

610 

615 

620 


630 

640 

645 


650 


660 

670 

680 

690 

700 

710 


720 


? #3; "32020 READ Z:IF ZO-1 THEN ?";CHR* 
<34);"ERROR IN CODE! CHECK DATA STATEMEN 
TS!";CHR$(34);":END" 

? #3;"32030 W=W+1:IF W<V THEN 32010" 

? #3;"32040 RETURN" 

CLOSE #2:CLOSE #3:END 

CLOSE #2:CLOSE #3:TRAP 40000:? "{BELLIER 
ROR ";PEEK(195);" AT LINE ";PEEK(186)+25 
6 * PEEK(187)5"!":END 

FOR T=10 TO 6 STEP -l:FOR S=8 TO 0 STEP 
— 1:SOUND 0, 15-S, 10,T:NEXT S:NEXT T:SOUND 
0,0,0,0:RETURN 

FOR T=1 TO 400:NEXT T:RETURN 
? :? "INPUT TWO CHARACTER STRING NAME":? 

"PLUS THE $":GOSUB 590:INPUT D0$ 

IF LEN(D0*)<3 THEN GOSUB 750:GOTO 610 
IF ASC(D0$(1,1))>90 OR ASC(D0$(1,1))<65 
OR D0$(2,2)="t" OR D0*(3,3)<>"$" THEN GO 
SUB 750:GOTO 610 
RETURN 

IF SO<1792 THEN RETURN 

IF FO>(256*PEEK(106)-1000) THEN ? " 

P :GOTO 40 

BATOP = PEEK (144)+256*PEEK(145) : IF BATOP>S 
0-100 THEN ? " (BELLI HmnHCm THIS PROGRA 
M MAY HAVE ":GOTO 670 
RETURN 

? "OVERRUN YOUR CODE! CHECK YOUR RESULTS 
!":GOSUB 600:RETURN 

QT=0:RT=0:FOR 1=0 TO L-1:IF PEEK(30+I>=3 


4 THEN QT = QT +1 

IF PEEK(SO + I)=155 THEN RT = RT +1 

NEXT I:IF RT<16 AND QT<16 THEN RETURN 



730 POP :GOTO 60 

740 FOR 1=0 TO 14:QUOTE(I)=0:RETRN(I)=0:NEXT 
I:RETURN 

750 ? "{BELLIWRONG RESPONSE! TRY AGAIN!":RET 

URN 
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Program 2. Changes for Cassette Users 
(see notes below) 

30 D0*="C3 SPACES>"!TRAP 580:GOSUB 740:V=0:L 
NO=32050:LN=31000:F=0 

35 OPEN #3,8,0,"C:":? #3;”1 DATA ";:FOR 1=0 
TO 59:? #3;"0,";:NEXT I:? #3;"0";:? #3 

Note: Line 35 writes a dummy line of DATA. This is needed because of a bug in 
the operating system. After the cassette handler is OPENed, the cassette motor 
will not stop running until a record is written to it. RUN the program and record 
the subroutine on tape. Then, before you enter your BASIC program, ENTER the 
subroutine from cassette. DELETE line 1. Then ENTER your BASIC program. 
Now type in GOSUB to the utility subroutine and you're ready to go. 
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Machine Language 
Sort Utility 

Ronald and Lynn Marcuse 

Machine language sorts are fast. With this sort utility you will be 
able to sort fixed or variable length records. These programs will 
not run on the 800XL. 

There have been occasional articles in the various personal 
computer magazines concerning the sorting of data files. Some of 
these have presented sort routines written in BASIC that can be 
used in existing programs. The complex string handling required 
by the sort logic is not really suitable for BASIC's rather slow 
execution speed. Clearly, any type of repetitive string manipula¬ 
tions as performed by sorting or searching functions would defi¬ 
nitely benefit from machine language. If you continue reading you 
will find out how much faster machine language really is. 

Before we get into the programs themselves, it would prob¬ 
ably be beneficial to include some background information. The 
verb to sort is defined as: "to put in a certain place or rank 
according to kind, class or nature; to arrange according to charac¬ 
teristics." This comes pretty close to what we sometimes want to 
do with the data we store in our computers and files: put it in 
some kind of order. Once we have arranged it we can search it 
quicker (imagine a disorganized phone book), list it in a more 
readable format, or even match it to other files that have been 
sorted the same way. 

The Main Questions 

First we must decide where will we do the actual sorting. All of us 
have arranged things on a desk or table. Our sort area is, there¬ 
fore, the desk or table that we use. In a computer system we have 
a choice of using the memory within the machine (internal) or our 
disk drive (external). There are problems with both of these. 
Computer memory is limited in size and this, in turn, limits the 
number of records that can be read in. The disk drive may be able 
to hold more data, but the speed of the device is snail-like when 
compared to memory. We can also use both. Divide the file up 
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into smaller chunks which can be sorted in memory, store these 
on disk as temporary files, and then merge all of them together. 
This process is usually referred to as sub-listing or sort-merge. 

The next question involves the type of sort logic (there are 
many ways of putting things in order). The algorithm used here is 
called a bubble sort. The file or list is examined two records at a 
time. If the second has a lower sort key than the first, the two will 
exchange places within the file. Why then, you ask, is it called a 
bubble sort: because records appear to bubble upward in memory 
(I didn't coin the phrase). Although this is not a very exotic meth¬ 
odology, it does offer several advantages such as requiring no 
other memory allocations for sorting and a rather quick speed if 
the file is not too disorganized. It will also not disturb the relative 
positioning of records that have equal sort keys. 

There are numerous other types of sort algorithms. A selection 
sort would go through a list of (n) items (n- 1) times, pulling out the 
next lowest record and adding it to the current end of a new list. 
This would need double the memory though. A selection and 
exchange sort would perform a similar function within the main 
sort area, selecting the lowest element during each pass, moving 
it upward in the list to be exchanged with the element occupying 
its new position. This method tends to upset the existing relative 
positioning. Other types involve binary tree searches and more 
complex algorithms. 

The difference between fixed and variable length records is 
really just that. Fixed length records are all exactly the same size, 
while variable implies that all or many of the records in the file 
may vary in length. Record 1 may be 80 bytes long, record 2 may 
be 120, etc. 

Why Machine Language 

The choice of language is, as stated above, rather clear. Unless you 
have a lot of time to kill, it must be in machine language. When 
you're doing several hundred thousand (or million) character 
comparisons and swaps, you don't have time to pull out a BASIC/ 
machine language dictionary for each line in the program (this, in 
essence, is what the BASIC interpreter does). 

Here are some representative execution times, based on 
some testing we did a while back. The speeds are approximate 
and do not include disk input/output time. The test file consisted 
of 200 records, each 75 characters in length. The sort key occupied 
ten positions: 
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BASIC selection/exchange sort (in memory) - 8 minutes 
BASIC bubble sort (in memory) -12 minutes 
BASIC selection sort (on disk) - 2 hours plus (hit BREAK key) 
Machine language bubble (memory) - 3 seconds 

The sort program was developed with flexibility in mind. It 
will sort fixed length or variable length records from 2 through 250 
bytes in length. The sort key itself may be located anywhere in the 
record and can be any length (up to the size of the record). It will 
sort in either ascending or descending order. The records them¬ 
selves must be comprised of ATASCII characters. While in 
memory, they need not be terminated by end-of-line ($9B) charac¬ 
ters. 

The nominal limit of 250 characters is imposed by a possible 
bug in Atari's DOS II. The second half of page 5 (memory 
addresses 0580-05FF hex, 1408-1535 decimal) appears to be utilized 
as an internal I/O buffer. When more than 128 bytes are input, the 
excess winds up on page 6. The sort program also resides in the 
safe user area of page 6 (beginning at $0680 or 1664). There is a 
physical law that states two things cannot occupy the same place 
at the same time. This also holds true in computer memory. The 
program has been pushed as far into page 6 as it can go. 

Using the Sort 

In order to use the sort, you must feed it certain parameters. The 
record length must be POKEd into location 205 ($00CD). The sort 
type (0-Ascending, 1-Descending) would be POKEd into 206 
($00CE). The starting and ending positions of the sort key will 
also have to be POKEd into locations 203 ($00CB) and 204 
($00CC). The program is expecting to see the offset of the sort key. 
The offset is the number of positions in front of that byte. For 
example, the first position of a record has a 0 offset, the second 
has an offset of 1, and the hundredth has an offset of 99. The 
USeR function that calls the sort will also pass the address of the 
string containing the file and the record count. For those who are 
a little unsure of what this is all about, there are a few examples 
coming up. 

Now that you have a routine that will sort your data faster 
than you can say Rumpelstiltskin, how do you use it? Here are 
several suggestions. The easiest method is to link through our 
sort/file loader in Program 1 (fixed length only). Your existing 
program that is processing the data file is probably much, much 
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longer than the short loader. The main advantage of using a small 
program is that you wind up with more free memory. And, since 
memory is our sort area, the more that is free, the larger the file. If 
you don't type the REMark statements, you'll have an even larger 
sort area. The disk file must be fixed length records terminated by 
end-of-line characters. Your existing processing program must 
contain the POKEs mentioned above. It may look something like 
this: 

POKE 203,SKEYA-1:POKE 204,SKEYB-1:PO 
KE 205, RECLEN: POKE 206,0 (-for Ascend 
ing) 

The call to the loader would be a RUN "D:SORTLOAD" (give the 
loader this filename when you save it). The sort/file loader must 
have your filename in the variable F$ and your program name in 
P$. If your processing program handles several files, you can also 
pass the filename by using the following statements. First, your 
program: 

FOR 1=0 TO 14:POKE 1 640+I,32:NEXT I 
FOR 1=0 TO LEN(F$):POKE 1640+1,ASCIF 
*(I,I)):NEXT I 

Note: F$ is your Files name 

The sort/file loader will require the following lines to be added: 

70 FOR 1=0 TO 14:F$(I,I)=CHRt(PEEK(1 
640+1)):NEXT I 

80 IF F$(1,2)<>”D:" THEN ? "ERROR":E 
ND 

If your processing program or file is small, you may do all of the 
above from within your program. Besides the same POKEs as 
above (you wouldn't need the filename of course), you will need 
the following line added to your program: 

IF RC >1 THEN A = USR(1664,ADR(X*) ,RC) 
where RC is the number of records stored in the string X$. Substi¬ 
tute your names where applicable. 

Programs 2,3,4, and 5 comprise a sort/merge utility that uses 
the same sort routine. This will give you the ability to handle 
much larger files and variable length records. With a 40 or 48K 
machine you will be able to sort files that are 60,000 bytes long. (If 
the record length is 60 characters, that will translate to 1,000 
records.) This particular version divides the file into two manage¬ 
able sub-files, sorts each, and then merges them. Be careful with 
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your disk space; the temporary file will need room also. If you 
have more than one drive, you can modify the program to split it 
three or more ways and sort even more records. For example, put 
the temporaries on drive 2 and the new file on drive 3. Who said 
micros can't handle larger files? 

Your Options 

The sort/merge utility is a stand-alone. Program 2 will load the 
machine language and display a title screen. Program 3 is a menu 
that will allow you to select either fixed or variable length record 
types and other parameters. If you select fixed length, Program 4 
will be called; variable length will select Program 5. 

Because of the chaining between these programs, Program 3 
must be saved with a filename of "D:S0RT)0(". Programs 4 and 5 
must likewise be saved with filenames of "D:SORT.FIX" and 
"D:SORT. VAR", respectively. Program 2 may be saved with any 
filename, but "DiSORTMERG" is suggested to avoid confusion. 

Now that you know how to feed the sort its required param¬ 
eters and call it, you must still get it into memory. Once again, you 
have several options. If you have the Assembler/Editor cartridge 
(or a similar assembler), the source appears in Program 6. Please 
feel free to modify it. If you're limited to BASIC, Program 7 will 
load the machine language when it is run. After doing either of 
these, you should go directly to DOS (DOS II only) and do a 
binary save (option K) with the following parameters: 

D1:AUTORUN.SYS,0680,06FD 

Saving the machine language as AUTORUN. SYS will enable the 
program to auto-boot when you power up with the disk (you must 
power up with that disk). Do not append an INIT or RUN address 
to the file unless you want the machine to lockup every time you 
turn it on. The stand-alone sort/merge utility will automatically 
load the machine language when RUN "D:SORTMERG" is 
executed by the Atari. 

Program 1. Sort Program Load (Files) 

10 REM CALL ING PROGRAM MUST: 

12 REM 

14 REM * POKE RECORD LENGTH INTO LOCATION 2 

05 

15 REM * POKE BEGINNING OF SORT KEY INTO LO 

C 203 

16 REM * POKE END OF SORT KEY INTO LOCATION 

204 
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17 REM * POKE TYPE (ASCENDING - 0 OR DESCEN 
DING - 1) INTO LOC 206 

IB REM 

19 REM THIS PROGRAM WILL LOAD FILE INTO MEMO 
RY AND CALL MACHINE 

20 REM LANGUAGE ROUTINE. WHEN COMPLETED, YOU 
R PROGRAM MAY BE 

21 REM RE-CALLED BY EQUATING P$ TO YOUR PROG 
RAM NAME. 

22 REM 

50 DIM X*(FRE(0)—600),Rt<130),Ft(15),Pt(15), 
I* ( 1 ) 

59 REM REPLACE X'S WITH YOUR FILE & PROGRAM 
NAMES 

60 Pt="XXXXXX”:Ft="XXXXXX" 

99 REM GET RECORD LENGTH 

100 RET=100:R=PEEK(205) 

109 REM OPEN FILE AND INPUT RECORDS 

110 ? M LOADING ";Ft:TRAP 600:OPEN #2,4,0,Ft 
: L= 1 

120 TRAP 140:INPUT #2,Rt:TRAP 40000 
130 X$(L,L+R-l)=R$:L=L+R:GOTO 120 
140 CLOSE #2:L=L—1:N=L/R:? " RECORDS LOADED= 

” ; N 

149 REM CALL MACHINE LANGUAGE SORT ROUTINE 

150 IF N >1 THEN ? ” BEGIN SORT M :A = USR(1664,A 
DR(X $) ,N) 

160 RET=170:7 “ COMPLETED SAVING ";Ft 

169 REM ERASE OLD FILE AND SAVE NEW ONE 

170 TRAP 600:X IO 36,#2,0,0,Ft:OPEN #2,8,0,Ft 
180 FOR 1=1 TO L STEP R:R$=X$(I,I+R-l):? #2; 

R t:NEXT I 

190 CLOSE #2:X IO 35,#2,0,0,Ft 

199 REM RETURN TO YOUR PROGRAM ? 

200 RET=200:TRAP 600:IF P$(3,4)<>”XX“ THEN ? 

M LOADING " ; Pt:RUN Pt 
210 END 

600 ? " ERROR - ";PEEK(195):CLOSE #2 
610 ? " PRESS RETURN TO CONTINUE”;:INPUT It: 

GOTO RET 


Program 2. Sort/Merge Loader 

0 DIM Mt(20):FOR 1=1 TO 13:READ A:Mt(I)=CHRt 
(A) :NE X T I:DATA 72,198,208,165,208,141,10, 
212, 14 1,24,208, 104,64 

1 GRAPHICS 21:POKE 752,1:POKE 82,1 

2 POKE 708,52:POKE 709,B:POKE 710,148:POKE 7 
11,66:POKE 712,152:P0KE 559,0 
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4 I=PEEK<560)+PEEK<561>*256:F0R J=1 TO 4:REA 
D A , B:POKE I+A,B:NEXT J 

5 A=INT<ADR<M*)/256):POKE 513,A:P0KE 512,ADR 
<M*)-A*256 

6 FOR J = 14 TO 30:POKE I+J,138:NEXT J:POKE 54 
286,192:P0KE 559,34 

8 DATA 3,70,6,6,7,6,8,6 

10 POKE 87,2: POSITION 2,0:? #6;"* 3H3^n Ca35 
03 *" :? #6 ; " C 6 SPACES > mOHMSaQ" 

12 POKE 87,5 

20 FOR N=1 TO 6:READ C,X1,Y1,X2,Y2,X3,Y3,X4, 

Y 4 

24 COLOR C:PLOT X1,Y1:DRAWT0 X2,Y2:DRAWT0 X3 
,Y3:POSITION X4,Y4 

26 POKE 765,C:XI0 1 8,#6,0,0, ”S: ":NEXT N 
28 COLOR 2:FOR 1=12 TO 27 STEP 3:PL0T 59,I:N 
EXT I 

30 FOR Y=34 TO 38 STEP 2:C0L0R 3:F0R X=15-Y+ 
40 TO 62+Y-40 STEP 2:PL0T X,Y:NEXT X:COLO 
R 1:PLOT X+2,Y:NEXT Y 

36 COLOR 4:PLOT 26,22:DRAWT0 26,14:DRAWT0 29 
,14:PLOT 30,15:PLOT 31,16:PL0T 30,17:PLOT 

29,18 

37 DRAWTO 27,18:DRAWT0 31,22:PL0T 34,14:DRAW 
TO 34,22:DRAWTO 39,22 

38 PLOT 42,22:DRAWTO 42,14:DRAWT0 46,18:DRAW 
TO 50,14:DRAWT0 50,22 

40 DATA 2,70,40,62,32,16,32,8,40,1,62,31,62, 
27, 17,27, 17,31,1,20,26,20, 10, 17, 10, 17,26 
42 DATA 1,62,26,62,10,56,10,56,26,1,62,9,62, 
6,17,6,17,9,3,55,26,55,10,21,10,21,26 
100 FOR 1=0 TO 125:READ A:POKE 1664+I,A:NEXT I 
102 POKE 54286,64:RUN "D:SORTXX" 

105 DATA 104,104,133,217,104,133,216,104,133 
,209,104,133,208,169,0 

110 DATA 133,218,133,207,162,1,165.216,133,2 
14,165,217,133,215,24 

120 DATA 165,214,133,212,101,205,133,214,165 
,215,133,213,105,0,133 

130 DATA 215,164,203,165,206,240,10,177,214, 
209,212,144,44,240,12 

140 DATA 176,19,177,214,209,212,144,13,240,2 
,176,30,200,196,204 

150 DATA 240,227,176,23,144,223,169,1,133,21 
8,164,205, 136, 177,214 

160 DATA 72,177,212,145,214,104,145,212,192, 
0,208,241,232,224,0 

170 DATA 208,2,230,207,228,208,208,172,165,2 
09,197,207,208,166,165 
180 DATA 218,201,0,208,144,96 
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Program 3. Sort/Merge Menu 

(SAVE as “D:SORTXX”) 

0 REM SORT/MERGE MENU 

10 POKE 82, 1 : GRAPHICS 0:? , " CDQWN> !=!■];> iMSIa|;Wa 
■BHBHE " i ? " (DOWN} CTAB> “ 

20 DIM I *<1) ,T*( 1 ) :03 = 40000:? "CD0WN}F0R FIL 
E TO BE SORTED, ENTER:" 

30 ? “IDOWN>FIXED (F) or VARIABLE (V) LENGTH 
'■ ; : INPUT I* 

40 R=0:IF I*="V“ THEN 70 
50 IF I*< >"F" THEN 30 

60 ? "RECORD LENGTH “;:TRAP 40:INPUT R:TRAP 
Q3:IF R<2 OR R>250 THEN 60 
70 ? "SORT KEY (1st,2nd) ";:TRAP 70:INPUT SS 
,SE:TRAP Q3 

75 IF SS > = SE OR SS<0 OR SE>250 THEN 70 
80 7 "ASCENDING - 0 OR DESCENDING - 1 ";:TR 
AP 80:INPUT T:TRAP Q3 
85 IF T< 0 OR T >1 THEN 80 

90 POKE 205,R:POKE 203,SS:POKE 204,SE:POKE 2 
06, T 

100 TRAP 120:IF I*=“V" THEN RUN "D:SORT.VAR" 
110 RUN "D:SORT.FIX” 

120 7 "INSERT DISKETTE WITH SORT PROGRAM":? 
"PRESS RETURN ";:INPUT T$:GOTO 100 

Program 4, Fixed Length Records 
(SAVE as “D:SORT.FIX) 

0 REM SORT/MERGE - FIXED LENGTH RECORDS 
20 R=PEEK(205):SS=PEEK(203)+1:SE=PEEK(204)+1 
:T = PEEK(206) 

30 XL=FRE(0)-600:DIM X$(XL),F % (15),R$(R),T%( 
R),D$(7) 

40 Ql=210:02=600:03=40000:D$="D1:TEMP" 

50 7 "ENTER FILE NAME (Bn:name.ext)":INPUT F 
* 

60 TRAP 50:DO=VAL(F*(2,2)):IF D0<1 OR D0>4 T 
HEN 50 

80 7 "DRIVE NUMBER FOR SORTED FILE ";:TRAP 8 
0:INPUT DN 

90 IF DN<1 OR DN >4 THEN 80 

95 D*(2,2)=STR*(DO) :7 "INSERT " ;F*; " IN DRIV 
E ";DO: IF DN< >D0 THEN 7 "AND BLANK DISK I 
N DRIVE ";DN 

96 7 "PRESS RETURN ";:INPUT R* 

100 7 "LOADING ";Ft:TRAP Q2:OPEN #2,4,0,F*:M 
= 0 
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120 

140 

150 

160 

170 

180 


200 

210 

220 

230 

240 

245 

250 

260 

270 

280 

300 

302 

310 

312 

330 

340 

390 

400 

410 

500 

510 

520 

530 

540 

550 

560 

600 


L=1:? "PASS 1 - ";:GOSUB 500:IF M=0 THEN 

160 

? "WRITIN6 ";D$:OPEN #3,8,0,D$:GOSUB 560 
? "PASS 2 - ";:L=1:GOSUB 500 
CLOSE #2:TRAP Q2:IF DO=DN THEN ? “DELETI 
NG 11 ; F $ : XIO 36,#3,0,0,F* 

F*(2,2)=STR$<DN):OPEN #3,8,0,F$ 

? "WRITING ";F*:IF M=0 THEN GOSUB 560:GO 
TO 400 

TRAP Q2:OPEN #2,4,0.D*:J=1:A=1:B=1:AE=1: 
BE= 1 


IF A=1 THEN TRAP 330:INPUT #2,R*:TRAP Q3 
IF B=1 THEN TRAP 340:T*=X$<J,J+R-1):J=J+ 
R:TRAP Q3 

IF AE=0 AND BE=0 THEN 390 
IF AE=1 AND BE=0 THEN 300 
IF AE=0 AND BE=1 THEN 310 
IF T=1 THEN 280 

IF R$(SS,SE)>T*(SS,SE) THEN 310 
GOTO 300 

IF R$(SS,SE)<Tt(SS,SE) THEN 310 
? #3;R«:A=1:B=0:IF AE=0 THEN A=0:B=BE 


GOTO Q1 

? #3;Tt:A=0:B=1:IF BE=0 THEN B=0:A=AE 

GOTO Q1 

AE=0:GOTO 220 

BE=0:GOTO 230 

CLOSE #2:? "DELETING ";D$:XIO 33,#2,0,0, 
D$ 

CLOSE #3:XI0 36,#3,0,0,F$ 

END 

TRAP 530:INPUT #2,R*:TRAP Q3 

X*(L)=Rt:L=L+R:IF (L+RXXL THEN 500 

M= 1 


L=L—1:N=L/R:? "RECORDS LOADED = ";N 

IF N >1 THEN ? "BEGIN SORT "; :A = USR(1664 

,ADR(X*),N) 

? "END SORT”:RETURN 

FOR 1=1 TO L STEP R:R$=X$(I,I+R-l):? #3; 
R$:NEXT I:CLOSE #3:RETURN 
? "ERROR - ";PEEK(195):END 


Program 5. Variable Length Records 
(SAVE as “D:SORT.VAR) 

0 REM SORT/MERGE - VARIABLE LENGTH RECORDS 
10 SS=PEEK(203)+1:SE=PEEK(204)+1:T=PEEK(206) 
SPOKE 203,SS:POKE 204,SE 
20 XL=FRE(0)-600:DIM X*(XL),F*(15),R*(251>,T 
*(251),D*(7) 
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30 Q1=210:Q2=600:Q3=40000:D$="D1:TEMP":Tt(1) 
=" ”:Tt(251)=" ":Tt(2)=Tt(1) 

40 ? "ENTER FILE NAME (Dn:name.ext)":INPUT F 
t 

45 TRAP 40:DQ=VAL(F$(2,2)):IF D0<1 OR D0>4 T 
HEN 40 

50 ? "DRIVE NUMBER FOR SORTED FILE ";:TRAP 5 
0:INPUT DN 

55 IF DN<1 OR DN >4 THEN 50 

57 ? "INSERT ";F$; " IN DRIVE ";DO:IF DN< >DO 
THEN ? "AND BLANK DISK IN DRIVE ";DN 

58 Dt(2,2)= STRt(DO):? "PRESS RETURN ";:INPUT 

Rt 

60 ? "FINDING LONGEST RECORD LENGTH":TRAP Q2 
:OPEN #2,4,0,Ft:R=0 

70 TRAP 80: INPUT 42,Rt:L=LEN(Rt) : IF L >R THEN 
R = L 

75 GOTO 70 

80 CLOSE #2:? "LONGEST LENGTH IS ";R:IF R>25 
0 THEN ? "TOO LONG":END 
100 POKE 205,R+l:? "LOADING ";Ft:TRAP Q2:0PE 
N #2,4,0,F$:M=0 

120 L=Is? "PASS 1 - “;:GOSUB 500:IF M=0 THEN 

160 

140 ? "WRITING ";Dt:OPEN 43,8,0,D t:GOSUB 560 
150 ? "PASS 2 - L=1:GOSUB 500 

160 CLOSE #2:TRAP 02:IF DO=DN THEN ? "DELETI 
NG " ; F t:XIO 36,43,0,0,Ft 
170 Ft(2,2)=STRt(DN):OPEN 43,8,0,Ft 
180 ? "WRITING ";Ft:IF M=0 THEN GOSUB 560:GO 
TO 400 

200 TRAP Q2:OPEN 42,4,0,Dt:J = 1:A=1:B=1:AE=1: 
BE= 1 

210 IF A=1 THEN TRAP 330:INPUT 42,Rt:TRAP Q3 
220 IF B=1 THEN TRAP 340:RL = ASC(Xt ( J, J ) ) :Tt = 
Xt(J+l,J+RL):J=J+R+1:TRAP Q3 
230 IF AE=0 AND BE=0 THEN 390 

240 IF AE=1 AND BE=0 THEN 300 

245 IF AE=0 AND BE=1 THEN 310 

250 IF T =1 THEN 280 

260 IF Rt(SS,SE)>Tt(SS,SE) THEN 310 
270 GOTO 300 

280 IF Rt(SS,SE)<Tt(SS,SE) THEN 310 

300 ? 43;Rt:A=1:B=0:IF AE=0 THEN A=0:B=BE 

302 GOTO Q1 

310 ? 43;Tt:A=0:B=1:IF BE=0 THEN B=0:A=AE 

312 GOTO Q1 

330 AE=0:GOTO 220 

340 BE=0:GOTO 230 
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390 CLOSE #2:? "DELETING ";D*:XIO 33,#2,0,0, 
D$ 

400 CLOSE #3: X IO 36,#3,0,0,Ft 
410 END 

500 TRAP 530:INPUT #2,Rt:TRAP Q3:RL=LEN(Rt): 

IF RL< R THEN R*(RL+1)=T* 

510 Xt(L,L)= CHR*(RL):Xt(L+l)=R$:L=L+R+1:IF ( 
L + R+1XXL THEN 500 
520 M=1 

530 L=L-1:N=L/(R+l):? "RECORDS LOADED = ";N 
540 IF N >1 THEN ? "BEGIN SORT "; :A = USR<1664 
,ADR( Xt),N) 

550 ? "END SORT":RETURN 

560 FOR 1=1 TO L STEP R+1:RL=ASC<X*(I,I)):R* 
=X*(1+1,I+RL) 

570 ? #3; R t:NE X T I:CLOSE #3:RETURN 
600 ? "ERROR - ";PEEK<195):END 


Program 6, Machine Language Bubble Sort 

0100 .TITLE "MACHINE LANGUAGE BUBBLE SORT 


0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 


; RLM MICRO SYSTEMS 01/20/82 

; 

; CALLED FROM BASIC WITH: 

; A=USR(1664,ADR(Xt),RC) 

; NOTE: Xt IS THE STRING THAT CONTAINS 
THE FILE 

; RC IS THE NUMBER OF RECORDS 

; THE FOLLOWING ARE POKED BY BASIC PRO 
GRAM: 


; SS - BEGINNING OF SORT KEY (DECI 

MAL- 203) 

; SE - END OF SORT KEY (DECIMAL - 

204) 

; RL - RECORD LENGTH (DECIMAL - 20 

5) 

; TYPE - ASCENDING (0) OR DESCEND 

ING (1) 

; (DECIMAL - 206) 

• THE ROUTINE WILL LOOP THROUGH "FILE" 
SWAPPING UNSORTED 

; ADJOINING MEMBERS UNTIL THE "SWAP" FL 
AG HAS NOT BEEN SET 
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0310 ; IN A GIVEN PASS. THE ZERO PAGE ADDRES 

SES "FST" AND "SEC" 

0320 ; POINT AT THE INDIVIDUAL MEMBERS BEING 

COMPARED. THE Y 

0330 ; REGISTER IS USED AS AN INDEX POINTER 
FOR TESTING OR 

0340 ; MOVING BYTES BETWEEN THE TWO RECORDS. 

0350 ; 


0360 *= $0680 

0370 FST = $D4 

B,MSB) 

0380 SEC = $D6 

(LSB,MSB) 

0390 BASE = $D8 

(LSB,MSB) 

0400 SS = $CB 

RT KEY 

0410 SE = $CC 

T KEY 

0420 RL = $CD 

0430 SWAP = $DA 

0440 RC = $D0 

LSB,MSB) 

0450 CNTH = $CF 

X REG IS LSB) 

0460 TYPE = $CE 

DES 
0470 ; 

0480 ; 

0490 PLA 

ROM STACK 
0500 PLA 

0510 STA BASE+1 

0520 PLA 

0530 STA BASE 

0540 PLA 

0550 STA RC+1 

0560 PLA 

0570 STA RC 

0580 ; 

0590 ; 

0600 BEGIN LDA #$00 

UGH FILE 

0610 STA SWAP 

0620 STA CNTH 

0630 LDX #$01 

(LOW COUNT) 

0640 LDA BASE 

ASE 


START ON PAGE 6 
MEMBER n ADDRESS (LS 

MEMBER (n+1) ADDRESS 

BASE ADDRESS OF LIST 

FIRST POSITION OF SO 

LAST POSITION OF SOR 

ELEMENT LENGTH 

SWAP SWITCH 

NUMBER OF ELEMENTS ( 

RECORD COUNTER (MSB, 

SORT TYPE, 0-ASC 1- 

POP # OF ARGUMENTS F 

SET BASE ADDRESS 

SET ELEMENT COUNT 

START EACH PASS THRO 

SET SWAP TO 0 

SET HIGH COUNT TO 0 

SET X REGISTER TO 1 

SET POINTER (n) TO B 
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0650 

0660 

0670 


STA SEC 
LDA BASE+1 
STA SEC+1 


0690 CONT CLC 
0700 LDA 

0710 STA 

0720 ADC 

0730 STA 

0740 LDA 

0750 STA 

0760 ADC 

0770 STA 

0780 LDY 

SDN 
0790 ; 

0800 COMP LDA 

ING? 

0810 BED 

0820 LDA 

0830 CMP 

MBERS 

0840 BCC 

0850 BEQ 

0860 BCS 

0870 ; 

0880 ASC LDA 

0890 CMP 

MBERS 

0900 BCC 

0910 BEQ 

0920 BCS 

0930 ; 

0940 I NCR INY 

0950 CPY 

0960 BEQ 

0970 BCS 

0980 BCC 

0990 ; 

1000 FLIP LDA 

+ 1 ) 

1010 STA 

1020 LDY 

1030 ; 

1040 MOVE DEY 

1050 LDA 

1060 PHA 

1070 LDA 

1080 STA 


RL 

SEC 

SEC+1 

FST+1 

#$00 

SEC+1 

SS 


RESET POINTERS- 


+1) to (n+2) 


ASCII STRING COMPARI 


TYPE ASCENDING OR DESCEND 

ASC SORT IS ASCENDING 

(SEC),Y TYPE = DESCENDING 
(FST),Y COMPARE ADJOINING ME 

BACK < n) >(n + 1) 

I NCR (n) = (n + 1) TRY AGAIN 

FLIP (n)< (n + 1) 


FLIP 
I NCR 
BACK 


(n)>(n+1) 

(n)=(n+l) TRY AGAIN 
(n)<(n+1) 


COMP 

BACK 

COMP 


NEXT ELEMENT 


SWAP ELEMENTS (n),(n 
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1090 PLA 

1100 STA (FST),Y 

1110 CP Y #$00 MORE BYTES TO SWAP? 

1120 BNE MOVE YES 

1130 ; 

1140 BACK IN X INCREMENT RECORD COU 

NTER 

1150 CPX #$00 CHECK FOR >255 

1160 BNE TEST 

1170 INC CNTH ADD 1 TO HIGH COUNT 

1180 ; 

1190 TEST CPX RC END OF FILE? 

1200 BNE CONT NO 

1210 LDA RC+1 CHECK HIGH EOF 

1220 CMP CNTH 

1230 BNE CONT NOT END OF FILE 

1240 LDA SWAP TEST FOR END OF SORT 

1250 CMP #$00 ANY SWAPS? 

1260 BNE BEGIN YES, START OVER 

1270 RTS NO, RETURN TO CALLIN 

G PROGRAM 
1280 .END 

Program 7. Sort Load 

98 FOR 1=0 TO 125:READ A:POKE 1664+I,A:NEXT 
I 

100 DATA 104,104,133,217,104,133,216,104,133 
,209,104,133,208,169,0 

110 DATA 133,218,133,207,162,1,165,216,133,2 
14,165,217,133,215,24 

120 DATA 165,214,133,212,101,205,133,214,165 
,215,133,213,105,0,133 

130 DATA 215,164,203,165,206,240,10,177,214, 
209,212,144,44,240,12 

140 DATA 176,19,177,214,209,212,144,13,240,2 
,176,30,200,196,204 

150 DATA 240,227,176,23,144,223,169,1,133,21 
8,164,205,136,177,214 

160 DATA 72,177,212,145,214,104,145,212,192, 
0,208,241,232,224,0 

170 DATA 208,2,230,207,228,208,208,172,165,2 
09,197,207,208,166,165 
180 DATA 218,201,0,208,144,96 


271 




A 

Appendix 







A 

A Complete Guide 
to the Atari 
Chara cter Set 

Orson Scott Card 

Atari characters can be used to do many things besides speak 
English to the user. Nearly infinite strings can hold fully relocat¬ 
able machine language programs in character form, the most 
economical way of storing machine language in BASIC programs. 
Characters can be POKEd directly into screen memory. Programs 
can read the keyboard directly, by-passing the Atari's keyboard 
handling routines, so that you can effectively redefine almost 
every key and key combination. And editing functions, like 
CURSOR LEFT, DELETE, CLEAR, TAB, and even TAB SET and 
TAB CLEAR, can all be executed during a program simply by 
PRINTing them, either as part of a string or as a CHR$(n) func¬ 
tion. 

The trouble is, to do all these things requires using several 
different codes. And the different codes have all been kept in 
different lists—often in different books—and as often as not 
you've had to translate hexadecimal to decimal or multiply by 8 in 
order to get the value you wanted. 

Until now. Here is a complete listing of the Atari character 
set, in ATASCII order, with every bit of information we could 
think of a use for. For each of 128 characters, you will find: 

• The pattern of on-off bits that produces the character on the 
screen, including the value of each byte in the pattern. 

• The ATASCII values in decimal and hexadecimal for regular 
and inverse characters. 

• The internal code values in decimal and hexadecimal for 
regular and inverse characters. 

• The keyboard code values in decimal and hexadecimal, 
including the value of the key combination and the value of 
the unshifted key alone. 

• The machine language instruction represented by the 
regular and/or inverse character's ATASCII value. 
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• The offset of the character's 8-byte pattern within character 
set memory. 

• The key combination required to PRINT the character (or 
execute its screen editing function). 

• The effect of PRINTing screen editing characters. 

How to Use the Table 

Each entry begins with a printout showing the pattern of on-off 
bits in the character pattern. Beside each row is the value, in 
decimal, of the byte that produces that row's on-off pattern. On 
bits are 1, off bits are 0. The operating system creates inverse char¬ 
acters from the same patterns, except that 0 is interpreted as on 
and 1 is interpreted as off. 

ATASCII VALUE 

The first line gives the ATASCII code in decimal and hexadecimal 
($) and the value of the inverse character. If the character is also an 
editing command, the effect of PRINTing the character is given in 
the third column of the first line. 

Machine Language 

The second line gives the 6502 machine language instruction 
represented by the ATASCII value of the character, followed by 
the instruction represented by the ATASCII value of the inverse 
character. If the inverse character is also an editing command, the 
effect of PRINTing the inverse character is given in the third 
column of the second line. 

The following conventions are used with the machine 
language mnemonics: 

# = immediate addressing 
z = absolute zero page addressing 
abs = absolute 2-byte addressing 
(ind) = indirect addressing 
,X or ,Y = indexed addressing 
A = accumulator 

Remember that the machine language mnemonic represents 
the ATASCII value of the character, not the ICODE (internal code) 
value. This information is provided so you can decode machine 
language routines contained in strings, like: 

C = USR(ADR("string")) 

Also, keep in mind that after almost every instruction comes 
a 1- or 2-byte argument. Any instruction that uses absolute 
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addressing will be followed by a 2-byte argument; instructions 
that use indirect, zero page, and immediate addressing, as well as 
branch instructions, will use 1-byte arguments; and instructions 
with implied addressing (DEY, INX, RTS, NOR BRK, etc.) will 
have no argument following them. 

ICODE Values 

The third line gives the ICODE (internal code) value of the char¬ 
acter. This is the number that must be POKEd into screen memory 
to display the character on the screen; the number also represents 
the order of the character within character set memory. The 
ICODE value is given in decimal and hexadecimal, followed by 
the ICODE value of the inverse character in decimal and hexadec¬ 
imal. Last comes the offset of the character in the character set— 
the number of bytes to count into character set memory to find the 
top line of that character's pattern. 

(Occasionally the keyboard code is also called an internal 
code, but for clarity we will use ICODE only for the number repre¬ 
senting the character's order in character set memory, which is 
also the number POKEd into screen memory.) 

KEYCODE Values 

The fourth line gives the KEYCODE (keyboard code) value of the 
character—the number that is stored in location 764 when you 
press the key combination that produces that character. The 
number is given in decimal and hexadecimal, followed by the 
decimal and hexadecimal unshifted KEYCODE—the code for the 
individual key, regardless of whether SHIFT or CONTROL are 
pressed. Last comes the key combination required to produce the 
character. If the character is also an editing command, (ESC) will 
come first to remind you to PRINT or type the ESC character first 
or PRINTing the character will execute its editing function. 

Indexes 

To help you use this table, it is followed by several indexes: 

ICODE index. Look up characters by their internal code 
number. 

Machine language index. Look up characters by the 
machine language mnemonic (in alphabetical order). 
KEYCODE index. Look up characters by their keyboard code 
number. 
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Screen Editing Characters 

The screen editing characters are paired, with the second char¬ 
acter in each pair PRINTed as the inverse of the first character. To 
be PRINTed—PRINT CHR$(nnn )—each character must be 
preceded by the ESC character—PRINT CHR$(27);CHR$(VmnJ. 
The only exception is CHR$(155), the RETURN character. If you 
could PRINT it, it would be the inverse ESCAPE character, which 
is what appears when you POKE the ICODE equivalent, 219, into 
screen memory. However, used with PRINT, CHR$(155) will 
always cause the Operating System to execute a carriage return 
and line feed. There is no way to defeat this without altering the 
OS. 

Normal Inverse 


27 
ESC 

28 

CURSOR UP 
29 

CURSOR DOWN 

CURSOR LEFT 
31 

CURSOR RIGHT 

125 

CLEAR 

126 

DELETE BACK 

127 

TAB 


155 

RETURN 

156 

DELETE LINE 

157 

INSERT LINE 

158 

TAB CLEAR 

159 

TAB SET 

253 

BUZZER [CONTROL-2] 

254 

DELETE AHEAD 

255 

INSERT CHARACTER 
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Table 1. Atari Character Set 




ATASCII 5 $05 inv 

ML ORA z inv 

ICODE 69 $45 inv 

KEYCODE170 $AAuns 


133 $85 

STA z 

197 $C5 offset 552 

42 $2A CONTROL-E 



$BF CONTROL-, 


ATASCII 6 $06 inv 

ML ASL z inv 

ICODE 70 $46 inv 

KEYCODE 184 $B8 uns 


$15 CONTROL-B $BD uns 



$12 CONTROL-C KEYCODE 185 $B9 u 


$C4 offset 544 




ATASCII 9 
ML ORA i 
ICODE 


$3A CONTROL-D KEYCODE 141 $8D ui 


134 

STX 

198 

56 


135 

199 

61 


137 

201 


$86 

$C6 offset 560 
$38 CONTROL-F 


$87 

$C7 offset 568 
$3D CONTROL-G 


$C8 offset 576 
$39 CONTROL-H 


$C9 offset 584 
$0D CONTROL-I 
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Table 1. Atari Character Set (continued) 



ATASCII 10 $0A inv 138 

ML ASL A inv TXA 

ICODE 74 $4A inv 202 

KEYCODE129 $81 uns 1 



ATASCII 11 $0B inv 139 

ML — inv — 

ICODE 75 $4B inv 203 

KEYCODE133 $85 uns 5 



ATASCII 12 $0C inv 140 

ML — inv STY 

ICODE 76 $4C inv 204 

KEYCODE 128 $80 uns 0 



$8F 

$CF offset 632 
$08 CONTROL-O 


$D0 offset 640 
$0A CONTROL-P 


(ind),Y 

$D1 offset 648 
$2F CONTROL-Q 




ATASCII 13 $0D 

ML ORAabs 
ICODE 77 $4D 

KEYCODE 165 $A5 


141 $8D 

STA abs 

205 $CD offset 616 
37 $25 CONTROL-M 


ATASCII 18 $12 

ML — 

ICODE 82 $52 

KEYCODE 168 $A8 


146 $92 

210 $D2 offset 656 

40 $28 CONTROL-R 



ATASCII 14 $0E inv 

ML ASL abs inv 

ICODE 78 $4E inv 

KEYCODE 163 $A3 uns 


142 

STX 


35 


$8E 

abs 

$CE offset 624 
$23 CONTROL-N 



ATASCII 19 $13 

ML — 


147 $93 


ICODE 83 $53 

KEYCODE 190 $BE 


211 $D3 offset 664 

62 $3E CONTROL-S 
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Table 1. Atari Character Set (continued) 



ATASC1I 20 $14 inv 148 

ML — inv STY 

ICODE 84 $54 inv 212 

KEYCODE173 $ADuns 45 



ATASC1I 21 $15 inv 149 

ML ORA z,X inv STA 

[CODE 85 $55 inv 213 

KEYCODE 139 $8B uns 11 


■ 


ATASCII 22 
ML ASLz,X 
ICODE 86 
KEYCODE 14 


■ 


ATASCII 23 $17 

ML — 

ICODE 87 $57 

KEYCODE 174 $AE 


■ 


ATASCII 24 
ML CLC 
ICODE 88 
KEYCODE 150 


$D4 offset 672 


ATASCII 25 $19 inv 153 

ML ORA abs.Y inv STA 
ICODE " 


$2D CONTROL-T KEYCODE 171 


B 


i ATASCII 26 $1A in 

I ML — in 

5 offset 680 ICODE 90 $5A in 

5 CONTROL-U KEYCODE 151 $97 ui 


ATASCII 27 $1B inv 155 


ICODE 91 $5B inv 219 

KEYCODE 28 $1C uns 28 

*CHR$ (155) cannot 


$2E CONTROL-W 


ATASCII 28 $1C inv 156 


$99 

abs.Y 

$D9 offset 712 
$2B CONTROL-Y 


$9A 

$DA offset 720 
$17 CONTROL-z 


$9B ESCAPE 

END OF LINE 
(RETURN)* 
$DB offset 728 
$1C (ESC) ESC 
be PRINTed. 


$9C CURSOR UP 
DELETE LINE 
$DC offset 736 
$0E (ESC) 

CONTROL- 

(hyphen) 


$D8 offset 704 
$16 CONTROL-X 
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Table 1. Atari Character Set (continued) 


■ 




ATASCII 29 $1D in 


KEYCODE143 $8F u 


157 $9D CURSOR 

DOWN ML — 

STA abs,X INSERT LINE ICODE 2 

221 $DD offset 744 KEYCODE 94 

15 $0F {ESC} 

CONTROL-= 



■ 


ATASCII 30 
ML ASL abs.X 
ICODE 94 
KEYCODE 134 



ML — in' 

ICODE 95 $5F in' 

KEYCODE 135 $87 un 


ATASCII 35 
ML — 

v 158 $9E CURSOR LEFT ICODE 3 

it — CLEAR TAB KEYCODE 90 

v 222 $DE offset 752 
is 6 $06 {ESC} 

CONTROL- + 


159 $9F CURSOR 

RIGHT 

— SETTAB 

223 $DF offset 769 


ATASCII 32 $20 ii 


ATASCII 33 $21 ir 

ML AND (ind,X) ir 
ICODE 1 $01 ir 

KEYCODE 95 $5F u 


161 $A1 

LDA (ind,X) 

129 $81 offset 8 

i 31 $1F SHIFT-1 



162 $A2 
LDX # 

130 $82 offset 16 

30 $1E SHIFT-2 


163 $A3 

131 $83 offset 24 
26 $1A SHIFT-3 


165 $A5 
LDA z 

133 $85 offset 40 

29 $1D SHIFT-5 



27 $1B 
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Table 1. Atari Character Set (continued) 




ATASCII 41 $29 inv 169 $A9 

ML AND # inv LDA # 

1CODE 9 $09 inv 137 $89 offset 72 
KEYCODE114 $72 uns 50 $32 SHIFT-0 



ATASCII 46 $2E inv 174 $AE 

ML ROL abs inv LDX abs 
ICODE 14 $0E inv 142 $8E offset 112 

KEYCODE 34 $22 uns 34 $22 
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Table 1. Atari Character Set (continued) 
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Table 1. Atari Character Set (continued) 



ATASCII 59 
ML — 
ICODE 27 
KEYCODE2 


$3B inv 187 

$1B inv 155 
$02 uns 2 


ATASCII 64 $40 inv 192 $C0 

MLRTI inv CPY # 

offset 216 ICODE 32 $20 inv 160 $A0 offset 256 

; KEYCODE117 $75 uns 53 $35 SHIFT-8 




ATASCII 60 $3C 

ML — 

ICODE 28 $1C 

KEYCODE54 $36 


188 SBC 
LDY abs,X 
156 $9C offset 224 
54 $36 < 


ATASCII 65 $41 inv 193 $C1 

MLEOR (ind,X) inv CMP(ind,X) 

ICODE 33 $21 inv 161 $A1 offset 264 
KEYCODE127 $7F uns 63 $3F SHIFT-A 



ATASCII 61 $3D inv 189 $BD 

ML AND abs,X inv LDA abs,X 
ICODE 29 $1D inv 157 $9D offset 232 

KEYCODE 15 $0F uns 15 $0F = 



ill 


ATASCII 66 $42 inv 194 $C2 

ML— inv — 

ICODE 34 $22 inv 162 $A2 offset 272 

KEYCODE85 $55 uns 21 $15 SHIFT-B 



ATASCII 62 $3E inv 190 

ML ROL abs,X inv LDX 

ICODE 30 $1E inv 158 

KEYCODE 55 $37 uns 55 



ATASCII 63 $3F inv 191 

ML — inv — 

ICODE 31 $1F inv 159 

KEYCODE 102 $66 uns 38 


$BE 

abs,Y 

$9E offset 240 
$37 > 


$BF 



60 , 

96 J 


ATASCII 67 $43 


195 $C3 


ICODE 35 $23 

KEYCODE 82 $52 


163 $A3 offset 280 

18 $12 SHIFT-C 



120 

ill 

ili 


ATASCII 68 $44 

ML — 

ICODE 36 $24 

KEYCODE 122 $7A 


196 $C4 

CPY z 

164 $A4 offset 288 

58 $3A SHIFT-D 
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Table 1. Atari Character Set (continued) 



0 


102 


0 


ATASCII 69 $45 inv 197 $C5 

MLEOR z inv CMPz 

ICODE 37 $25 inv 165 $A5 offset 296 

KEYCODE106 $6A uns 42 $2A SHIFT-E 


ATASCII 74 $4A inv 202 $CA 

MLLSR A inv DEX 

ICODE 42 $2A inv 170 $AA offset 336 

KEYCODE 65 $41 uns 1 $01 SHIFT-] 




203 $CB 

171 $AB offset 344 
5 $05 SHIFT-K 


204 $CC 
CPY abs 

172 $AC offset 352 
0 $00 SHIFT-L 


205 $CD 
CMP abs 

173 $AD offset 360 
37 $25 SHIFT-M 


206 $CE 
DEC z,X 

174 $AE offset 368 
35 $23 SHIFT-N 
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Table 1. Atari Character Set (continued) 




ATASCII 79 $4F 


207 $CF 


ATASCII 


$54 


212 $D4 


ICODE 47 $2F 

KEYCODE72 $48 


175 $AF offset 376 
8 $08 SHIFT-O 


ICODE 52 $34 

KEYCODE109 $6D 


180 $B4 offset 416 

45 $2D SHIFT-T 


■ 

mm 


ATASCII 80 
MLBVC 
ICODE 48 
KEYCODE 74 



ATASCII 83 


$D0 


$B0 offset 384 
$0A SHIFT-P 


$D1 

(ind),Y 

$B1 offset 392 
$2F SHIFT-Q 


$D2 


$D3 

$B3 offset 408 
$3E SHIFT-S 
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Table 1. Atari Character Set (continued) 



ATASCII 89 $59 inv 217 $D9 

MLEOR abs.Y inv CMP abs,Y 

ICODE 57 $39 inv 185 $B9 offset 456 

KEYCODE107 $66 uns 43 $2B SHIFT-Y 



$DA 

$BA offset 464 
$17 SHIFT-z 


$BB offset 472 
$20 SHIFT-, 


ATASCII 92 
ML — 

ICODE 60 
KEYCODE70 


$5C inv 220 

$3C inv 188 
$46 uns 6 


$DC 

$BC offset 480 
$06 SHIFT-+ 



ATASCII 94 $5E inv 

MLLSR abs,X inv 
ICODE 62 $3E inv 

KEYCODE71 $47 uns 



ATASCII 95 $5F inv 

ML— inv 

ICODE 63 $3F inv 

KEYCODE78 $4E uns 



ATASCII 96 $60 inv 
ML RTS inv 

ICODE 96 $60 inv 
KEYCODE162 $A2 uns 



ATASCII 97 $61 inv 

ML ADC (ind,X) inv 
ICODE 97 $61 inv 

KEYCODE 63 $3F uns 


222 $DE 
DEC abs,X 
190 $BE offset 496 
7 $07 SHIFT-* 


223 $DF 

191 $BF offset 504 
14 $0E SHIFT-- 

[hyphen] 


224 $E0 

CPX # 

224 $E0 offset 768 

34 $22 CONTROL-. 


225 $E1 

SBC (ind,X) 

225 $E1 offset 776 

63 $3F A 




ATASCII 98 $62 inv 

ML— inv 

ICODE 98 $62 inv 

KEYCODE 21 $15 uns 


226 

226 

21 


$E2 


$E2 offset 784 
$15 B 
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Table 1. Atari Character Set (continued) 





ATASCII 106 $6A inv 234 $EA 

MLROR A inv NOP 

ICODE 106 $6Ainv 234 SEA offset 848 

KEYCODE1 $01 uns 1 $01 J 



ATASCII 107 $6B inv 235 $EB 

ICODE 107 $6B inv 235 $EB offset 856 
KEYCODE5 $05 uns 5 $05 K 



ATASCII 108 $6C inv 236 $EC 

MLJMP (ind) inv CPX abs 

ICODE 108 $6C inv 236 $EC offset 864 

KEYCODE 0 $00 uns 0 $00 L 
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Table 1. Atari Character Set (continued) 




ATASCII 112 $70 inv 240 $F0 

MLBVS inv BEQ 

ICODE 112 $70 inv 240 $F0 offset 896 

KEYCODE10 $0A uns 10 $0A P 



ATASCII 117 $75 inv 245 $F5 

ML ADC z,X inv SBC z,X 

ICODE 117 $75 inv 245 $F5 offset 936 

KEYCODE 11 $0B uns 11 SOB U 






ATASCII 113 $71 
ML ADC (ind),Y 
ICODE 113 $71 

KEYCODE 47 $2F 


241 $F1 

SBC (ind),Y 
241 $F1 offse 
47 $2F Q 


ATASCII 118 $76 inv 246 $F6 

MLROR z,X inv INC z,X 

ICODE 118 $76 inv 246 $F6 offset 944 

KEYCODE 16 $10 uns 16 $10 V 
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Table 1. Atari Character Set (continued) 




ATASCII 124 
ML — 

ICODE 124 
KEYCODE79 


$7C inv 252 

$7C inv 252 
$4F uns 15 


$FC 

$FC offset 992 
$0F SHIFT-= 


ATASCII 125 $7D inv 253 

ML ADC abs,X inv SBC 

ICODE 125 $7D inv 253 

KEYCODE118 $76 uns 54 


$FD CLEAR 
abs,X BUZZER 

[CONTROL-21 
$FD offset 1000 
$36 (ESC) SHIFT-< 



a 


0 


ATASCII 126 $7E inv 254 $FE DELETE 

MLROR abs,X inv INC abs,X DELETE 

RIGHT 

ICODE 126 $7E inv 254 $FE offset 1008 

KEYCODE52 $34 uns 52 $34 {ESC} 

DELETE 



ATASCII 127 $7F 

ML — 

ICODE 127 $7F i 

KEYCODE44 $2C 


255 $FF TAB 
— INSERT 

CHARACTER 
255 $FF offset 1016 
44 $2C {ESC} TAB 
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Table 2. Internal Code Index, ICODE: ATASCII 


0 

32 

41: 

73 

82: 

18 

123: 

123 

164: 

196 

1 

33 

42: 

74 

83: 

19 

124: 

124 

165: 

197 

2 

34 

43: 

75 

84: 

20 

125: 

125 

166: 

198 

3 

35 

44: 

76 

85: 

21 

126: 

126 

167: 

199 

4 

36 

45: 

77 

86: 

22 

127: 

127 

168: 

200 

5 

37 

46: 

78 

87: 

23 

128: 

160 

169: 

201 

6 

38 

47: 

79 

88: 

24 

129: 

161 

170: 

202 

7 

39 

48: 

80 

89: 

25 

130: 

162 

171: 

203 

8 

40 

49: 

81 

90: 

26 

131: 

163 

172: 

204 

9 

41 

50: 

82 

91: 

27 

132: 

164 

173: 

205 

10 

42 

51: 

83 

92: 

28 

133: 

165 

174: 

206 

11 

43 

52: 

84 

93: 

29 

134: 

166 

175: 

207 

12 

44 

53: 

85 

94: 

30 

135: 

167 

176: 

208 

13 

45 

54: 

86 

95: 

31 

136: 

168 

177: 

209 

14 

46 

55: 

87 

96: 

96 

137: 

169 

178: 

210 

15 

47 

56: 

88 

97: 

97 

138: 

170 

179: 

211 

16 

48 

57: 

89 

98: 

98 

139: 

171 

180: 

212 

17 

49 

58: 

90 

99: 

99 

140: 

172 

181: 

213 

18 

50 

59: 

91 

100: 

100 

141: 

173 

182: 

214 

19 

51 

60: 

92 

101: 

101 

142: 

174 

183: 

215 

20 

52 

61: 

93 

102: 

102 

143: 

175 

184: 

216 

21: 

53 

62: 

94 

103: 

103 

144: 

176 

185: 

217 

22 

54 

63: 

95 

104: 

104 

145: 

177 

186: 

218 

23 

55 

64: 

0 

105: 

105 

146: 

178 

187: 

219 

24 

56 

65: 

1 

106: 

106 

147: 

179 

188: 

220 

25 

57 

66: 

2 

107: 

107 

148: 

180 

189: 

221 

26 

58 

67: 

3 

108: 

108 

149: 

181 

190: 

222 

27 

59 

68: 

4 

109: 

109 

150: 

182 

191: 

223 

28 

60 

69: 

5 

110: 

110 

151: 

183 

192: 

128 

29 

61 

70: 

6 

111: 

111 

152: 

184 

193: 

129 

30 

62 

71: 

7 

112: 

112 

153: 

185 

194: 

130 

31 

63 

72: 

8 

113: 

113 

154: 

186 

195: 

131 

32 

64 

73: 

9 

114: 

114 

155: 

187 

196: 

132 

33 

65 

74: 

10 

115: 

115 

156: 

188 

197: 

133 

34 

66 

75: 

11 

116: 

116 

157: 

189 

198: 

134 

35 

67 

76: 

12 

117: 

117 

158: 

190 

199: 

135 

36 

68 

77: 

13 

118: 

118 

159: 

191 

200: 

136 

37 

69 

78: 

14 

119: 

119 

160: 

192 

201: 

137 

38 

70 

79: 

15 

120: 

120 

161: 

193 

202: 

138 

39 

71 

80: 

16 

121: 

121 

162: 

194 

203: 

139 

40 

72 

81: 

17 

122: 

122 

163: 

195 

204: 

140 


292 









205 : 141 

216 : 152 

227 : 

227 

238 : 

238 

— 

206 : 142 

217 : 153 

228 : 

228 

239 : 

239 


207 : 143 

218 : 154 

229 : 

229 

240 : 

240 


208 : 144 

219 : 155 

230 : 

230 

241 : 

241 

— 

209 : 145 

220 : 156 

231 : 

231 

242 : 

242 


210 : 146 

221 : 157 

232 : 

232 

243 : 

243 


211 : 147 

222 : 158 

233 : 

233 

244 : 

244 


212 : 148 

223 : 159 

234 : 

234 

245 : 

245 


213 : 149 

224 : 224 

235 : 

235 

246 : 

246 


214 : 150 

225 : 225 

236 : 

236 

247 : 

247 


215 : 151 

226 : 226 

237 : 

237 

248 : 

248 
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Table 3. Machine Language Index 


A 


Z x 

H ^>uuuux><e 

Z t&HpqWMWWWf 
SUUDDDDDDe 


ooooooogg^gg 

LULULUlXlLUUJLLl£l6i£l£l£l 


jdSaiSgsaisS 


5 
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BCC 144 CPXabs 236 INY 

BCS 176 CPXz 228 JMPabs 

BEQ 240 CPY # 192 JMP (ind) 
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SBC abs 
SBC abs,X 



Table 4. Keyboard Code Index, KEYCODE: ATASCII 
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Key Single key SHIFT CONTROL SHIFT and 

press and key and key CONTROL and key 


A 


4 

3 

6 

ESC 

5 

2 

1 

SPC 

N 

M 

/ 

INV 

CO 

d pq >h ^ h ^ O' 




216 

218 

219 

220 
221 
222 
223 

cn| cQ S S cr> 

(N CN (N CN CN CN 

232 

234 

235 

236 

237 

238 

239 

27 

253 

0 

32 

14 

13 

18 

5 

25 

158 

20 

23 

17 

« « « « u.® 

.. ..^ 


152 

154 

155 

156 

157 

158 

159 

160 

161 

163 

165 

166 
167 


36 

35 

38 

27 

37 

34 

33 

91 

32 

78 

77 

63 

82 

69 

89 

159 

84 

87 

81 


^3 




104 

106 

107 

108 

109 

110 
111 

88 

90 

91 

92 

93 

94 

95 

susss 

52 

51 

54 

27 

53 

50 

49 

44 

32 

110 

109 

47 

114 

101 

121 

127 

116 

119 

113 


* 


24 

26 

27 

28 

29 

30 

31 

32 

33 
35 

37 

38 

39 

40 

42 

43 

44 

45 

46 

47 

4 

3 

6 

ESC 

5 

2 

1 

SPC 

N 

M 

INV 

R 

E 

Y 

TAB 

T 

W 

Q 
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and key and key CONTROL and key 
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! 
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1 
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n 

n 




B 

Appendix 


A Beginner's 
Guide to Typing 
In Pro grams 

What Is a Program? 

A computer cannot perform any task by itself. Like a car without 
gas, a computer has potential, but without a program, it isn't going 
anywhere. Most of the programs published in this book are 
written in a computer language called BASIC. Atari 8K BASIC is 
easy to learn. 

BASIC Programs 

Computers can be picky. Unlike the English language, which is 
full of ambiguities, BASIC usually has only one "right way" of 
stating something. Every letter, character, or number is significant. 
A common mistake is substituting a letter such as "O" for the 
numeral "0", a lowercase "1" for the numeral "1" or an uppercase 
"B" for the numeral "8". Also, you must enter all punctuation such 
as colons and commas just as they appear in the book. Spacing 
can be important. To be safe, type in the listings exactly as they 
appear. 

Braces and Special Characters 

The exception to this typing rule is when you see the braces, such 
as "{DOWN}". Anything within a set of braces is a special char¬ 
acter or characters that cannot easily be listed on a printer. When 
you come across such a special statement, refer to Appendix C, 
"How to Type in Programs." 

About DATA Statements 

Some programs contain a section or sections of DATA statements. 
These lines provide information needed by the program. Some 
DATA statements contain actual programs (called machine 
language); others contain graphics codes. These lines are espe¬ 
cially sensitive to errors. 
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If a single number in any one DATA statement is mistyped, 
your machine could "lock up," or "crash." The keyboard, break 
key, and RESET keys may all seem "dead," and the screen may go 
blank. Don't panic — no damage is done. To regain control, you 
have to turn off your computer, then turn it back on. This will 
erase whatever program was in memory, so always SAVE a copy 
of your program before you RUN it. If your computer crashes, you 
can LOAD the program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an error 
message when the program is RUN. The error message may refer 
to the program line that READs the data. This error is still in the 
DATA statements, though. 

Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Leam the statements you use to 
store and retrieve programs from tape or disk. You'll want to save 
a copy of your program, so that you won't have to type it in every 
time you want to use it. Leam to use the machine's editing func¬ 
tions. How do you change a line if you made a mistake? You can 
always retype the line, but you at least need to know how to back¬ 
space. Do you know how to enter inverse video, lowercase, and 
control characters? It's all explained in your computer's manuals. 

A Quick Review 

1. Type in the program a line at a time, in order. Press RETURN at 
the end of each line. Use backspace or the back arrow to correct 
mistakes. 

2. Check the line you've typed against the line in the listing. You 
can check the entire program again if you get an error when you 
RUN the program. 

3. Make sure you've entered statements in braces as the appro¬ 
priate control key (see Appendix C). 

4. Be sure to SAVE the program on tape or disk before RUNning 
the program. 
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Appendix 


' How to Type In 
- Programs 


In order to make spedal characters, inverse video, and cursor 
characters easy to type in, COMPUTE! Magazine's Atari listing 
conventions are used in all the program listings in this book. 

Please refer to the following tables and explanations if you 
come across an unusual symbol in a program listing. 

Atari Conventions 

Characters in inverse video will appear like: ^<n; 

Enter these characters with the Atari logo key, {A}. 


When you see Type 


See 


C CLEAR > 

< DOWN > 
<LEFT> 

{RIGHT > 
CBACK S> 
i DELETE > 

< INSERT> 

C DEL LINE* 
CINS LINE> 

i CLR T AB > 


(ESC) 


ESC SHIFT < 

ESC CTRL - 
ESC CTRL = 

ESC CTRL + 

ESC CTRL * 

ESC DELETE 
ESC CTRL DELETE 
ESC CTRL INSERT 
ESC SHIFT DELETE 
ESC SHIFT INSERT 
ESC TAB 
ESC CTRL TAB 
ESC SHIFT TAB 
ESC CTRL 2 
ESC ESC 




C 

rt 

n 


Q 

a 

ra 


Delete Character 
Insert Character 


Clear TAB 
Set TAB stop 


ESCape key 


Graphics characters, such as CTRL-T, the ball character • will 
appear as the "normal" letter enclosed in braces, e.g., {T}. 

A series of identical control characters, such as 10 spaces, 
three cursor-lefts, or 20 CTRL-R's, will appear as {10 SPACES}, {3 
LEFT}, {20 R}, etc. If the character in braces is in inverse video, 
that character or characters should be entered with the Atari logo 
key. For example, {W} means to enter a reverse-field heart with 
CTRL-comma, {5HI} means to enter five inverse-video CTRL-U's. 


305 



Index 


ADR function 217 
alternate character sets, in "Super 
TextPlot" 142 

angular orientations, in "Super TextPlot" 
142 

ANTIC (A) command, in "SuperFont 
Plus" 129 
ANTIC chip 6 

ANTIC 4/5 character set, in "SuperFont 
Plus" 127,128 
ANTIC 4 mode 127, 245 
ANTIC 5 mode 127, 245 
Assembler Editor 248, 249 
Assembler Editor manual 248 
Atari 400 233 
Atari 800 233 
Atari 1200XL 233-47 

incompatibilities 233, 242 
key definition 235-36 
memory map 233-47 
new graphics modes 245-46 
OS 244 

Atari 1200XL Operating System Manual 240, 
247 

Atari BASIC graphics capabilities 201 
Atari BASIC Reference Manual 38, 225 
Atari character set 275-98 
tables 279-98 

Atari Personal Computer System Hardware 
Manual 37-38, 48, 201 
"Atari Verify" utility 165-66 
Atari XL models see XL models 
ATASCII5-6,142, 225,248-49, 275,292 
AUDCTL register 38-39, 45 
audio control registers 45 
audio frequency registers 45 
"Automate" 167-73 

automated system commands 167-73 
AUTORUN.SYS file see "Automate" 
back-arrow, as paragraph delimiter in 
"Scriptor" 105-6 
BASIC, extensions to 174 
BASIC cartridge 249 
"Beginner's Keyboard" 55-56 
blinking characters 27-30 
braces, in program listings 299 
BREAK key 175 
bubble sort 259 
"CalCalc" 87-93 

CAPS/LOWR key 8,13,14,15,17 
cartridge, advantage for OS 175 
"Castle Quest" 94-101 


CDRMA2 register 28 

CDTMA2 register 28 

CDTMV2 register 28 

CHACT register and inverse video 27-28 

CHBAS vector 142 

CIO (Central Input/Output) 176,179 

circles 153-60 

difficulties in drawing 153 
potential method 156-57 
sines and cosines method 154-55 
square root method 155-56 
techniques 154 
code conversions 10-11 

ATASCII-ICODE conversions 10-11 
KEYCODE-ATASCII orICODE 11 
Color Change mode, in "SuperFont Plus" 
130 

color rotation in P/M graphics 202 
COMPUTEl's First Book of Atari 67 
COMPUTEl's First Book of Atari Graphics 
127,142, 202 

COMPUTEl's Mapping the Atari 233, 246 
COMPUTEl's Second Book of Atari 165 
COMPUTEl's Second Book of Atari Graphics 
217 

CONTROL-DELETE key 12 
CONTROL-INSERT key 12 
CONTROL-lock key 8 
CONTROL-1 key 10 
CONTROL-2 key 12 
CONTROL-TAB key 12 
"The Cruncher" 225-27 
CTRL key, in "Scriptor" 105,106,107 
cursor 103 

control with joystick 163-64 
cursor codes 163 
DATA statement 299 
debounce 17 
De Re Atari 202 
DIMension statement 31-32 
DIR command 179 
disk files 104 

naming rules 107-8 
display list, relocating 201 
Dvorak keyboard layout 4, 8,16 
8-bit note table 49-50 
"Elementary Numbers" 66-73 
exponential operator 3 
exponents 3 

correcting inaccuracy of 3 
FI key 9,13 

on 1200XL 234 
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F2 key 9,13 
F3 key 9,13 
F4 key 9,13 
Fn keys 9 

FOR/NEXT loops, inaccurate for timing 
22 

GET 23 

GRAPHICS 0 mode 58,129, 228 
GRAPHICS 1 mode 129 
GRAPHICS 2 mode 74,129 
GRAPHICS 7 mode 201 
GRAPHICS 12 mode 245-46 
GRAPHICS 13 mode 245-46 
GRAPHICS 14 mode 245-46 
GRAPHICS 15 mode 245-46 
HELP key 9,13 
ICODE 5,6,10-11, 227, 292-93 
internal code see ICODE 
Internal Code Index 292-93 
interrupts 9 
INT function 3 
jiffy 228 
joystick 67 

for cursor control 163-64 
joystick codes 163 
keyboard code see also KEYCODE 
KEYCODE 4,5, 7,8,10-11, 277, 296-98 
on XL models 9 
keys, customization 4-5 
"Laser Gunner II" 216-24 
LOCK command 178,179 
machine language, merging with 
BASIC 

discussion 248-57 
safe memory 250-51 
Machine Language Index 294-95 
matrix wastes memory 225 
Mini-DOS, in "Scriptor" 107 
music, 16-bit 45-51 
Operating System, see OS 
OS, defined 174-75 

PEEK and POKE, sometimes faster than 
conventional commands 228 
peripherals 175-76 
Player/Missile graphics 201 
explosions 205 
fast motion 216 
player definition 202 
POKE to RAMTOP 202 
TRAPs 204-5 
PLOT command 225 
PRINT mode, in "SuperFont Plus" 129 


purging diskettes 195-98 
Qwerty keyboard layout 4,8 
RAMTOP 

and strings 217 
changing 201 

RENAME command 178,179 
"Renumber Plus" utility 191-94 
roots, exponential 3 
RUBOUT key 102 
SAVE, importance of 300 
SjWE, important in "Scriptor" program 
105 

SCRATCH command 178,179 
screen editing characters 278 
screen RAM, relocating 201 
"Scriptor" 102-23 
customizing 110 
edit commands 111 
formatting commands 112 
Mini-DOS in 107 
RETURN and 105 
SAVE, important with 105 
sheet feeding 109-10 
text formatting 108-9 
selection and exchange sort 259 
selection sort 259 

self-modifying code, in "Standings" 
program 76 

SHIFT-CONTROL combinations 9 
SHIFT-DELETE key 12 
SHIFT-INSERT key 12 
SHIFT-lock key 8 
SHIFT-RETURN key 12 
SHIFTTAB key 12 
16-bit dividers 47 
16-bit note table 49-50 
16-bit sound 48,50-51 
6502 machine language 167,276 
sort, defined 258 

sort routine, in "Standings" program 
75 

sort utility, machine language 258-71 
faster than BASIC 260 
instructions 261-62 
options 262 
sound 37-44 

difficulties with 37 
"Sound Experimenter" 39-44 
SOUND instruction 37,50,225 
"Spelling Quiz" 57-65 
SQR function 3 
"Standings" 74-86 
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"Starshot" 201-15 
string arrays 31-33 
fast initialization 31 

and renumbering 191 
holding Player/Missile data 217 
machine language in 252-53 
take less space than matrices 225 
"SuperFont" 127 
commands 128-29 
"SuperFont Plus" 127-41 
new commands 129 
"Super TextPlot" 142-52 

alternate character sets in 142 
angular orientations in 142,147 
applications 148 
cautions with 146-47 
loading 147-48 
mathematics of 143-44 
parameters 144-46 


text formatting, in "Scriptor" 108-9 

"TextPlot" 142 

timer 22-26 

times, sample 24 

time test programs 229-30 

timing, accurate 23-26 

tokens, BASIC 191 

TRAP 32-33,196,204-5,227 

tuning inaccuracy 46 

reduced by 16-bit dividers 47 
UNLOCK command 178,179 
USR function 144 
Vertical Blank Interrupt 217-19 
vertical blank period 27,29,163 
wedge 176-77 
"The Wedge" 174-90 
word processing concepts 102-3 
XIO196 

XL models 7,9,13 

young children, computers and 66 
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